#Modificar variable para especificar directorio del Proyecto Final
#local.path <- "/Users/akcasill/Downloads"

user.path <- "/Users/jos/Downloads/"

local.path <- paste(user.path ,"mcc-ad/data",sep = "")
local.path.imgs <- paste(user.path ,"mcc-ad/imgs",sep = "")
#Dependencies
#install.packages("png")
library(png)

#ASISTENCIAS TOTALES

setwd(local.path)
The working directory was changed to /Users/jos/Downloads/mcc-ad/data inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.
# son 9 semestres de 6 materias cada uno. 
# 1.- Asistencias Totales
load("AsistenciasTotales.R")
class(asistencias.totales)
[1] "list"
length(asistencias.totales)
[1] 1000
class(asistencias.totales[[1]])
[1] "matrix"
dim(asistencias.totales[[1]])
[1] 32 54
class(asistencias.totales[1])
[1] "list"
asistencias.totales[[1]][1:10,1:10]
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    2    2    2    2    2    2    1    2    2     2
 [2,]    2    2    2    2    2    0    2    2    2     2
 [3,]    2    2    2    2    2    2    2    0    2     2
 [4,]    2    2    2    2    2    2    2    0    2     2
 [5,]    2    1    2    1    2    1    2    2    2     2
 [6,]    2    1    2    2    2    0    0    0    2     2
 [7,]    1    2    2    1    2    0    2    2    2     2
 [8,]    2    2    2    0    2    1    1    1    2     2
 [9,]    2    2    2    0    1    2    2    0    2     2
[10,]    2    2    2    2    2    2    2    0    0     2
#Asistencias
#===================
#Definición Valores
#===================
# 2 El alumno tiene asistnecia completa.
# 1 El alumno tiene retardo.
# 0 El alumno tiene falta.

#Sólo tomar las primeras 12 materias (Columnas)
for(i in 1:length(asistencias.totales)){
  asistencias.totales[[i]] <- asistencias.totales[[i]][,1:12]
}
asistencias.totales[[4]]
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
 [1,]    2    2    2    2    2    2    0    2    2     2     2     2
 [2,]    2    2    2    2    2    1    2    2    2     2     2     2
 [3,]    2    2    2    2    0    2    2    1    2     2     2     1
 [4,]    2    2    2    2    2    2    2    2    2     2     2     2
 [5,]    2    1    2    2    2    2    2    2    2     2     2     2
 [6,]    2    1    2    2    1    1    2    1    2     2     1     2
 [7,]    1    2    2    2    2    1    2    2    2     2     2     2
 [8,]    2    2    2    2    1    2    1    0    2     2     2     2
 [9,]    2    2    2    1    0    2    2    1    0     2     2     2
[10,]    2    2    2    2    2    2    2    2    1     2     2     2
[11,]    2    2    2    2    2    2    2    2    2     2     2     2
[12,]    2    2    2    2    2    2    2    2    2     2     2     2
[13,]    2    2    2    2    2    2    2    2    1     2     2     2
[14,]    2    2    2    1    2    2    2    2    2     2     2     2
[15,]    2    2    2    2    2    2    2    2    2     2     2     2
[16,]    2    2    2    2    2    2    2    0    2     2     2     2
[17,]    2    1    2    1    2    2    2    2    2     2     2     2
[18,]    0    2    2    2    1    2    2    2    1     2     2     2
[19,]    2    2    2    1    2    2    0    2    2     2     2     2
[20,]    2    2    2    2    1    2    2    2    2     2     2     2
[21,]    1    2    2    2    1    1    2    2    1     2     2     2
[22,]    2    2    2    0    1    2    2    2    2     2     2     2
[23,]    2    2    2    2    2    2    0    2    2     2     2     2
[24,]    2    2    2    2    2    2    2    2    2     2     2     2
[25,]    2    2    2    2    2    2    0    2    2     2     2     2
[26,]    2    2    2    2    2    2    2    0    1     2     2     2
[27,]    2    2    2    2    2    2    2    2    2     2     2     2
[28,]    2    2    2    2    0    2    2    2    2     2     2     2
[29,]    2    1    2    2    2    2    1    2    1     2     2     2
[30,]    2    2    2    2    0    2    2    1    0     2     2     2
[31,]    2    2    2    2    2    2    2    2    2     2     2     2
[32,]    2    2    2    2    2    2    2    2    1     2     2     2

Tamaño de Lista de Asistencia de Alumnos:

length(asistencias.totales)
[1] 1000

Lista de total Asistencias por Alumno

#
#for(i in 1:length(asistencias.totales)){
#  asistencias.totales[[i]] <- asistencias.totales[[i]][,1:12]
#}
asistencias.alumnos <- matrix(1:12000, nrow=1000, ncol=12)

for(i in 1:length(asistencias.totales)){
  for(j in 1:12){
    asistencias.alumnos[i,j] <- sum(asistencias.totales[[i]][,j])/32    
  }
}

asistencias.alumnos[1,]
 [1] 1.87500 1.87500 2.00000 1.40625 1.90625 1.43750 1.59375 1.12500 1.84375 2.00000 1.96875 1.96875
asistencias.df <- as.data.frame(asistencias.alumnos)

#Asistencia Materias Ejemplo: AM1 = Asistencia Materia 1
colnames(asistencias.df) <- c('AM1','AM2','AM3','AM4','AM5','AM6','AM7','AM8','AM9','AM10','AM11','AM12')
#DATA FRAME DE ASISTENCIAS ALUMNOS
#=================================
#Suma de asistencias por Materia
#=================================
asistencias.df

#PERFIL ALUMNOS

setwd(local.path)
The working directory was changed to /Users/jos/Downloads/mcc-ad/data inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.
print("Summary")
[1] "Summary"
load("perfilAlumnos.R")
#head(perfil.alumnos,1)
str(perfil.alumnos)
'data.frame':   1000 obs. of  7 variables:
 $ genero                  : int  2 2 2 1 2 2 2 2 1 2 ...
 $ admision.letras         : num  60.1 59.1 53.1 57 61.5 ...
 $ admision.numeros        : num  35.2 33.2 21.3 29 37.9 ...
 $ promedio.preparatoria   : num  70.3 67.2 60 61 74.4 ...
 $ edad.ingreso            : num  18 17 15 16 18 18 15 17 14 17 ...
 $ evalucion.socioeconomica: int  4 4 4 4 4 4 4 4 4 4 ...
 $ nota.conducta           : num  16 15 13 14 16 16 13 15 12 15 ...
summary(perfil.alumnos)
     genero      admision.letras admision.numeros promedio.preparatoria  edad.ingreso   evalucion.socioeconomica nota.conducta  
 Min.   :1.000   Min.   :44.94   Min.   : 4.878   Min.   : 60.00        Min.   :11.00   Min.   :1.000            Min.   : 9.00  
 1st Qu.:1.000   1st Qu.:56.61   1st Qu.:28.226   1st Qu.: 60.00        1st Qu.:16.00   1st Qu.:3.000            1st Qu.:14.00  
 Median :2.000   Median :59.98   Median :34.970   Median : 69.95        Median :17.00   Median :4.000            Median :15.00  
 Mean   :1.595   Mean   :60.06   Mean   :35.114   Mean   : 72.25        Mean   :17.53   Mean   :3.466            Mean   :15.53  
 3rd Qu.:2.000   3rd Qu.:63.64   3rd Qu.:42.275   3rd Qu.: 80.91        3rd Qu.:19.00   3rd Qu.:4.000            3rd Qu.:17.00  
 Max.   :2.000   Max.   :77.71   Max.   :70.411   Max.   :100.00        Max.   :25.00   Max.   :4.000            Max.   :20.00  
#===================
#Definición Valores
#===================
# Genero: 2 Hombre, 1 Mujer.
# admision.letras: Calificación Examen Admisión Español
# admision.numeros: Calificación Examen Admisión Matemáticas
# promedio.preparatoria: Calificación Promedio Preparatoria   
# edad.ingreso: Edad, variable numérica             
# evalucion.socioeconomica: 1 más privilegiado, 4 menos privilagiado
# nota.conducta: Calificación subjetiva. 
perfil.alumnos$genero <- factor(perfil.alumnos$genero)
perfil.alumnos$evalucion.socioeconomica <-
  factor(perfil.alumnos$evalucion.socioeconomica)

perfil.alumnos$edad.ingreso <- 
  factor(perfil.alumnos$edad.ingreso)

#DATAFRAME CALIFICACIONES ALUMNOS

setwd(local.path)
The working directory was changed to /Users/jos/Downloads/mcc-ad/data inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.
print("Summary")
[1] "Summary"
# 3 1000 matrices de 2 x 54, calificación entre 1 y 20
load("ResultadosExamenes.R")
#resultados.examenes.totales

examenes.alumnos <- matrix(1:12000, nrow=1000, ncol=12)

for(i in 1:length(resultados.examenes.totales)){
  for(j in 1:12){
    examenes.alumnos[i,j] <- sum(resultados.examenes.totales[[i]][,j])/2    
  }
}

examenes.alumnos[1,]
 [1] 11.956449 12.330884 12.463337 15.189492 12.328150 17.087821  9.466637 12.011178 11.368753 12.221370 11.416652 12.330704
cal.alumnos.df <- as.data.frame(examenes.alumnos)
#Calificaciones Materias Ejemplo: CM2 = Calificiación Promedio Materia 2
colnames(cal.alumnos.df) <- c('CM1','CM2','CM3','CM4','CM5','CM6','CM7','CM8','CM9','CM10','CM11','CM12')
#===================
#Definición Valores
#===================
# CM1: Calificación Materia 1 valor Máximo 20
cal.alumnos.df

#TRABAJOS POR CLASE

setwd(local.path)
The working directory was changed to /Users/jos/Downloads/mcc-ad/data inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.
print("Summary")
[1] "Summary"
# 4 1000 matrices de 4 x 54, son 4 trabajos por clase, entre 1 y 20
load("ResultadoTrabajos.R")
resultados.trabajos.totales[[2]][,1]
[1] 11.79653 12.11637 12.71856 13.72462
tareas.alumnos <- matrix(1:12000, nrow=1000, ncol=12)

for(i in 1:length(resultados.trabajos.totales)){
  for(j in 1:12){
    tareas.alumnos[i,j] <- sum(resultados.trabajos.totales[[i]][,j])/4    
  }
}

#tareas.alumnos[1,]
tareas.alumnos.df <- as.data.frame(tareas.alumnos)
#Tareas Materias Ejemplo: TM2 = Tareas Promedio Materia 2
colnames(tareas.alumnos.df) <- c('TM1','TM2','TM3','TM4','TM5','TM6','TM7','TM8','TM9','TM10','TM11','TM12')
#===================
#Definición Valores
#===================
# TM1: Calificación Tarea Materia 1 valor Máximo 20
tareas.alumnos.df

#VISITAS BIBLIOTECA

# 5 Redondear. Uso físico y virtual. vector. 1000 Matrices, número de veces que asistio a la biblioteca por materia
setwd(local.path)
The working directory was changed to /Users/jos/Downloads/mcc-ad/data inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.
load("UsoBiblioteca.R")
length(uso.biblioteca.totales)
[1] 1000
mi.val <- uso.biblioteca.totales[[1]][1,1]
mi.val
[1] 12.65509
mi.val <- as.data.frame(mi.val)
mi.val

visitas.biblio.alumnos <- matrix(1:12000, nrow=1000, ncol=12)

for(i in 1:1000){
  for(j in 1:12){
    visitas.biblio.alumnos[i,j] <- uso.biblioteca.totales[[i]][1,j]
  }
}

visitas.biblio.alumnos.df <- as.data.frame(visitas.biblio.alumnos)
#Visitas Biblioteca  Ejemplo: VBM2 = Visitas Biblioteca  Materia 2
colnames(visitas.biblio.alumnos.df) <- c('VBM1','VBM2','VBM3','VBM4','VBM5','VBM6','VBM7','VBM8','VBM9','VBM10','VBM11','VBM12')
#===================
#Definición Valores
#===================
# VBM1: Visitas Biblioteca Materia 1
visitas.biblio.alumnos.df
NA
NA

#USO DE PLATAFORMAS DIGITALES

# 6 Redondear, vector. Uso de Canvas o de Plataforma digital.
setwd(local.path)
The working directory was changed to /Users/jos/Downloads/mcc-ad/data inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.
load("UsoPlataforma.R")
#uso.plataforma.totales
uso.plataforma.totales[[1]][,1:12]
 [1] 32.796526 32.554647 32.504125 79.290015 32.600643 80.313415  5.944546 33.398886 32.664804 33.522435 32.831749 32.208083
plataformas.alumnos <- matrix(1:12000, nrow=1000, ncol=12)

for(i in 1:1000){
  for(j in 1:12){
    plataformas.alumnos[i,j] <- uso.plataforma.totales[[i]][1,j]
  }
}

#tareas.alumnos[1,]
plataformas.alumnos.df <- as.data.frame(plataformas.alumnos)
#Tareas Materias Ejemplo: TM2 = Tareas Promedio Materia 2
colnames(plataformas.alumnos.df) <- c('PDM1','PDM2','PDM3','PDM4','PDM5','PDM6','PDM7','PDM8','PDM9','PDM10','PDM11','PDM12')
#===================
#Definición Valores
#===================
# PDM1: Plataformas Digitales Materia 1 valor Máximo 20
plataformas.alumnos.df
NA

#APARTADO DE LIBROS POR MATERIA

# 7
setwd(local.path)
The working directory was changed to /Users/jos/Downloads/mcc-ad/data inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.
load("ApartadoDeLibros.R") #1000 matrices, cantidad de libros que el alumno reservó por materia.
separacion.libros.totales[[1]][,1:12]
 [1] 1 1 1 3 1 3 0 1 1 1 1 1
reserva.libros.alumnos <- matrix(1:12000, nrow=1000, ncol=12)

for(i in 1:1000){
  for(j in 1:12){
    reserva.libros.alumnos[i,j] <- separacion.libros.totales[[i]][1,j]
  }
}

reserva.libros.alumnos.df <- as.data.frame(reserva.libros.alumnos)
#Reserva de Libris Ejemplo: RLM2 = Reserva de Libros Por Materia 2
colnames(reserva.libros.alumnos.df) <- c('RLM1','RLM2','RLM3','RLM4','RLM5','RLM6','RLM7','RLM8','RLM9','RLM10','RLM11','RLM12')
#===================
#Definición Valores
#===================
# RLM1: Reserva de Libros pro Materia 1
reserva.libros.alumnos.df
NA

#DISTRIBUCIÓN DE BECAS ALUMNOS

# 8 vector binario, 1 tiene beca, 0 no tiene Beca
setwd(local.path)
The working directory was changed to /Users/jos/Downloads/mcc-ad/data inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.
load("Becas.R")
distribucion.becas[[1]]
[1] 0
sum(distribucion.becas)
[1] 163
becas.alumnos <- matrix(1:1000, nrow=1000, ncol=1)

for(i in 1:1000){
    becas.alumnos[i] <- distribucion.becas[i]
}

becas.alumnos.df <- as.data.frame(becas.alumnos)
colnames(becas.alumnos.df) <- c('BECA')
#===================
#Definición Valores
#===================
# BECA: Tiene Beca 1
becas.alumnos.df
#Necesita ser un factor por que solo tiene dos valores 0 o 1 
becas.alumnos.df$BECA <- as.factor(becas.alumnos.df$BECA)
becas.alumnos.df

#HISTORIAL DE PAGOS ALUMNOS

# 9  2 en tiempo, 1 retraso, 0, Son 9 semestres pero hay que user sólo 2 primeras columnas, 4 pagos.
setwd(local.path)
The working directory was changed to /Users/jos/Downloads/mcc-ad/data inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.
load("HistorialPagos.R")
length(registro.pagos)
[1] 1000
registro.pagos[[500]]
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,]    2    2    2    2    2    2    1    2    2
[2,]    2    1    1    2    2    2    2    2    2
[3,]    2    2    2    2    1    2    2    1    2
[4,]    1    2    2    2    2    2    2    1    2
pagos.alumnos <- matrix(1:2000, nrow=1000, ncol=2)

for(i in 1:1000){
  for(j in 1:2){
    pagos.alumnos[i,j] <- sum(registro.pagos[[i]][,j])/4    
  }
}

#tareas.alumnos[1,]
pagos.alumnos.df <- as.data.frame(pagos.alumnos)
#Pago Semestre: PSEM2 = Pago Semestre 2
colnames(pagos.alumnos.df) <- c('PSEM1','PSEM2')
#===================
#Definición Valores
#===================
# PSEM1: Suma de pagos semestre 1, 2 valor máximo.
pagos.alumnos.df
NA
datos.alumnos.df <- cbind.data.frame(perfil.alumnos,
                                     becas.alumnos.df,
                              asistencias.df,
                              cal.alumnos.df,
                              tareas.alumnos.df,
                              visitas.biblio.alumnos.df,
                              plataformas.alumnos.df,
                              reserva.libros.alumnos.df,
                              pagos.alumnos.df)
datos.alumnos.df
NA
str(datos.alumnos.df)
'data.frame':   1000 obs. of  82 variables:
 $ genero                  : Factor w/ 2 levels "1","2": 2 2 2 1 2 2 2 2 1 2 ...
 $ admision.letras         : num  60.1 59.1 53.1 57 61.5 ...
 $ admision.numeros        : num  35.2 33.2 21.3 29 37.9 ...
 $ promedio.preparatoria   : num  70.3 67.2 60 61 74.4 ...
 $ edad.ingreso            : Factor w/ 15 levels "11","12","13",..: 8 7 5 6 8 8 5 7 4 7 ...
 $ evalucion.socioeconomica: Factor w/ 4 levels "1","2","3","4": 4 4 4 4 4 4 4 4 4 4 ...
 $ nota.conducta           : num  16 15 13 14 16 16 13 15 12 15 ...
 $ BECA                    : Factor w/ 2 levels "0","1": 1 1 1 1 1 1 1 1 1 1 ...
 $ AM1                     : num  1.88 1.88 1.88 1.88 1.88 ...
 $ AM2                     : num  1.88 1.41 1.41 1.88 1.41 ...
 $ AM3                     : num  2 2 2 2 1.72 ...
 $ AM4                     : num  1.41 1.81 1.81 1.81 1.81 ...
 $ AM5                     : num  1.91 1.5 1.38 1.56 1.91 ...
 $ AM6                     : num  1.44 1.38 1.12 1.88 1.12 ...
 $ AM7                     : num  1.59 1.69 1.69 1.69 1.69 ...
 $ AM8                     : num  1.12 1.12 1.94 1.69 1.12 ...
 $ AM9                     : num  1.84 1.84 1.84 1.66 1.66 ...
 $ AM10                    : num  2 2 1.22 2 2 ...
 $ AM11                    : num  1.97 1.97 1.97 1.97 1.97 ...
 $ AM12                    : num  1.97 1.97 1.97 1.97 1.97 ...
 $ CM1                     : num  12 12 12 12 12 ...
 $ CM2                     : num  12.3 12.3 15.8 15.8 12.3 ...
 $ CM3                     : num  12.5 12.5 12.5 16 16 ...
 $ CM4                     : num  15.2 11.9 11.9 15.2 11.9 ...
 $ CM5                     : num  12.3 15.8 12.3 12.3 12.3 ...
 $ CM6                     : num  17.1 17.1 13.3 17.1 13.3 ...
 $ CM7                     : num  9.47 13.08 13.08 13.08 13.08 ...
 $ CM8                     : num  12.01 15.35 12.01 7.69 15.35 ...
 $ CM9                     : num  11.37 11.37 11.37 18.25 6.61 ...
 $ CM10                    : num  12.2 12.2 12.2 15.6 12.2 ...
 $ CM11                    : num  11.4 11.4 11.4 11.4 11.4 ...
 $ CM12                    : num  12.3 12.3 12.3 15.8 12.3 ...
 $ TM1                     : num  12.6 12.6 12.6 12.6 12.6 ...
 $ TM2                     : num  12.2 12.2 15.6 15.6 12.2 ...
 $ TM3                     : num  12.3 12.3 12.3 15.7 15.7 ...
 $ TM4                     : num  15.2 11.9 11.9 15.2 11.9 ...
 $ TM5                     : num  12.6 16.1 12.6 12.6 12.6 ...
 $ TM6                     : num  16.2 16.2 12.6 16.2 12.6 ...
 $ TM7                     : num  7.97 12.18 12.18 12.18 12.18 ...
 $ TM8                     : num  12.59 16.13 12.59 8.66 16.13 ...
 $ TM9                     : num  11.5 11.5 11.5 18.33 6.84 ...
 $ TM10                    : num  12.5 12.5 12.5 15.9 12.5 ...
 $ TM11                    : num  11.6 11.6 11.6 11.6 11.6 ...
 $ TM12                    : num  12.6 12.6 12.6 16.1 12.6 ...
 $ VBM1                    : num  12.7 12.7 12.7 12.7 12.7 ...
 $ VBM2                    : num  11.8 11.8 27.8 27.8 11.8 ...
 $ VBM3                    : num  11.7 11.7 11.7 27.5 27.5 ...
 $ VBM4                    : num  33.8 15.9 15.9 33.8 15.9 ...
 $ VBM5                    : num  12 28 12 12 12 ...
 $ VBM6                    : num  34.1 34.1 16.1 34.1 16.1 ...
 $ VBM7                    : num  2.98 19.89 19.89 19.89 19.89 ...
 $ VBM8                    : num  14.66 31.99 14.66 1.93 31.99 ...
 $ VBM9                    : num  12.22 12.22 12.22 62.22 1.44 ...
 $ VBM10                   : num  15.1 15.1 15.1 32.6 15.1 ...
 $ VBM11                   : num  12.8 12.8 12.8 12.8 12.8 ...
 $ VBM12                   : num  10.7 10.7 10.7 26 10.7 ...
 $ PDM1                    : num  32.8 32.8 32.8 32.8 32.8 ...
 $ PDM2                    : num  32.6 32.6 59.2 59.2 32.6 ...
 $ PDM3                    : num  32.5 32.5 32.5 58.4 58.4 ...
 $ PDM4                    : num  79.3 33.8 33.8 79.3 33.8 ...
 $ PDM5                    : num  32.6 60 32.6 32.6 32.6 ...
 $ PDM6                    : num  80.3 80.3 33.8 80.3 33.8 ...
 $ PDM7                    : num  5.94 34.97 34.97 34.97 34.97 ...
 $ PDM8                    : num  33.4 73.31 33.4 3.33 73.31 ...
 $ PDM9                    : num  32.66 32.66 32.66 161.08 2.11 ...
 $ PDM10                   : num  33.5 33.5 33.5 75.4 33.5 ...
 $ PDM11                   : num  32.8 32.8 32.8 32.8 32.8 ...
 $ PDM12                   : num  32.2 32.2 32.2 53.5 32.2 ...
 $ RLM1                    : num  1 1 1 1 1 1 4 2 1 1 ...
 $ RLM2                    : num  1 1 2 2 1 0 2 1 1 2 ...
 $ RLM3                    : num  1 1 1 2 2 2 2 2 1 2 ...
 $ RLM4                    : num  3 1 1 3 1 3 3 3 1 1 ...
 $ RLM5                    : num  1 2 1 1 1 1 2 1 1 2 ...
 $ RLM6                    : num  3 3 1 3 1 5 0 3 1 3 ...
 $ RLM7                    : num  0 1 1 1 1 5 3 1 1 3 ...
 $ RLM8                    : num  1 2 1 0 2 1 4 0 1 2 ...
 $ RLM9                    : num  1 1 1 4 0 1 2 2 1 1 ...
 $ RLM10                   : num  1 1 1 3 1 3 3 3 5 3 ...
 $ RLM11                   : num  1 1 1 1 1 1 2 1 1 1 ...
 $ RLM12                   : num  1 1 1 2 1 0 2 1 1 1 ...
 $ PSEM1                   : num  2 2 2 2 2 2 1.5 2 2 2 ...
 $ PSEM2                   : num  2 1.5 1.5 2 2 1.5 2 2 2 2 ...
summary(datos.alumnos.df)
 genero  admision.letras admision.numeros promedio.preparatoria  edad.ingreso evalucion.socioeconomica nota.conducta   BECA   
 1:405   Min.   :44.94   Min.   : 4.878   Min.   : 60.00        17     :200   1: 56                    Min.   : 9.00   0:837  
 2:595   1st Qu.:56.61   1st Qu.:28.226   1st Qu.: 60.00        18     :167   2:107                    1st Qu.:14.00   1:163  
         Median :59.98   Median :34.970   Median : 69.95        19     :166   3:152                    Median :15.00          
         Mean   :60.06   Mean   :35.114   Mean   : 72.25        16     :140   4:685                    Mean   :15.53          
         3rd Qu.:63.64   3rd Qu.:42.275   3rd Qu.: 80.91        20     :113                            3rd Qu.:17.00          
         Max.   :77.71   Max.   :70.411   Max.   :100.00        15     : 98                            Max.   :20.00          
                                                                (Other):116                                                   
      AM1             AM2             AM3             AM4             AM5             AM6             AM7             AM8       
 Min.   :1.875   Min.   :1.406   Min.   :1.031   Min.   :1.031   Min.   :1.375   Min.   :1.125   Min.   :1.406   Min.   :1.125  
 1st Qu.:1.875   1st Qu.:1.875   1st Qu.:1.719   1st Qu.:1.406   1st Qu.:1.562   1st Qu.:1.438   1st Qu.:1.594   1st Qu.:1.875  
 Median :1.875   Median :1.875   Median :2.000   Median :1.812   Median :1.906   Median :1.875   Median :1.688   Median :1.938  
 Mean   :1.875   Mean   :1.779   Mean   :1.837   Mean   :1.658   Mean   :1.794   Mean   :1.720   Mean   :1.632   Mean   :1.801  
 3rd Qu.:1.875   3rd Qu.:1.875   3rd Qu.:2.000   3rd Qu.:1.812   3rd Qu.:1.906   3rd Qu.:1.875   3rd Qu.:1.688   3rd Qu.:1.938  
 Max.   :1.875   Max.   :1.875   Max.   :2.000   Max.   :1.812   Max.   :1.906   Max.   :1.875   Max.   :1.688   Max.   :1.938  
                                                                                                                                
      AM9             AM10            AM11            AM12            CM1              CM2              CM3              CM4        
 Min.   :1.562   Min.   :1.219   Min.   :1.562   Min.   :1.438   Min.   : 7.594   Min.   : 8.218   Min.   : 8.439   Min.   : 7.487  
 1st Qu.:1.797   1st Qu.:2.000   1st Qu.:1.969   1st Qu.:1.969   1st Qu.:11.956   1st Qu.:12.331   1st Qu.:12.463   1st Qu.:11.892  
 Median :1.844   Median :2.000   Median :1.969   Median :1.969   Median :11.956   Median :12.331   Median :12.463   Median :11.892  
 Mean   :1.781   Mean   :1.872   Mean   :1.892   Mean   :1.875   Mean   :12.751   Mean   :13.567   Mean   :13.701   Mean   :13.064  
 3rd Qu.:1.844   3rd Qu.:2.000   3rd Qu.:1.969   3rd Qu.:1.969   3rd Qu.:11.956   3rd Qu.:15.775   3rd Qu.:15.951   3rd Qu.:15.189  
 Max.   :1.844   Max.   :2.000   Max.   :1.969   Max.   :1.969   Max.   :18.638   Max.   :18.887   Max.   :18.976   Max.   :18.595  
                                                                                                                                    
      CM5              CM6             CM7              CM8              CM9              CM10             CM11             CM12       
 Min.   : 8.214   Min.   : 9.86   Min.   : 9.467   Min.   : 7.685   Min.   : 6.615   Min.   : 8.036   Min.   : 6.694   Min.   : 8.218  
 1st Qu.:12.328   1st Qu.:13.32   1st Qu.:13.080   1st Qu.:12.011   1st Qu.:11.369   1st Qu.:12.221   1st Qu.:11.417   1st Qu.:12.331  
 Median :12.328   Median :13.32   Median :13.080   Median :12.011   Median :11.369   Median :12.221   Median :11.417   Median :12.331  
 Mean   :13.582   Mean   :14.72   Mean   :14.600   Mean   :13.233   Mean   :12.493   Mean   :13.488   Mean   :12.466   Mean   :13.539  
 3rd Qu.:15.771   3rd Qu.:17.09   3rd Qu.:16.773   3rd Qu.:15.348   3rd Qu.:14.492   3rd Qu.:15.628   3rd Qu.:14.556   3rd Qu.:15.774  
 Max.   :18.885   Max.   :19.54   Max.   :19.387   Max.   :18.674   Max.   :18.246   Max.   :18.814   Max.   :18.278   Max.   :18.887  
                                                                                                                                       
      TM1              TM2              TM3             TM4              TM5              TM6              TM7              TM8        
 Min.   : 8.648   Min.   : 8.036   Min.   : 8.11   Min.   : 7.457   Min.   : 8.608   Min.   : 8.735   Min.   : 7.965   Min.   : 8.657  
 1st Qu.:12.589   1st Qu.:12.221   1st Qu.:12.27   1st Qu.:11.874   1st Qu.:12.565   1st Qu.:12.641   1st Qu.:12.179   1st Qu.:12.594  
 Median :12.589   Median :12.221   Median :12.27   Median :11.874   Median :12.565   Median :12.641   Median :12.179   Median :12.594  
 Mean   :13.375   Mean   :13.437   Mean   :13.47   Mean   :13.043   Mean   :13.865   Mean   :13.931   Mean   :13.539   Mean   :13.920  
 3rd Qu.:12.589   3rd Qu.:15.629   3rd Qu.:15.69   3rd Qu.:15.166   3rd Qu.:16.087   3rd Qu.:16.188   3rd Qu.:15.572   3rd Qu.:16.126  
 Max.   :19.059   Max.   :18.814   Max.   :18.84   Max.   :18.583   Max.   :19.043   Max.   :19.094   Max.   :18.786   Max.   :19.063  
                                                                                                                                       
      TM9              TM10             TM11             TM12             VBM1             VBM2            VBM3             VBM4       
 Min.   : 6.836   Min.   : 8.418   Min.   : 7.003   Min.   : 8.624   Min.   : 1.531   Min.   : 1.37   Min.   : 1.336   Min.   : 2.172  
 1st Qu.:11.502   1st Qu.:12.451   1st Qu.:11.602   1st Qu.:12.574   1st Qu.:12.655   1st Qu.:11.85   1st Qu.:11.680   1st Qu.:15.858  
 Median :11.502   Median :12.451   Median :11.602   Median :12.574   Median :12.655   Median :11.85   Median :11.680   Median :15.858  
 Mean   :12.650   Mean   :13.758   Mean   :12.688   Mean   :13.829   Mean   :19.024   Mean   :19.30   Mean   :19.149   Mean   :23.968  
 3rd Qu.:14.669   3rd Qu.:15.934   3rd Qu.:14.802   3rd Qu.:16.099   3rd Qu.:12.655   3rd Qu.:27.77   3rd Qu.:27.521   3rd Qu.:33.787  
 Max.   :18.334   Max.   :18.967   Max.   :18.401   Max.   :19.050   Max.   :62.655   Max.   :61.85   Max.   :61.680   Max.   :65.858  
                                                                                                                                       
      VBM5            VBM6             VBM7             VBM8             VBM9            VBM10            VBM11            VBM12       
 Min.   : 1.40   Min.   : 2.213   Min.   : 2.978   Min.   : 1.933   Min.   : 1.443   Min.   : 2.015   Min.   : 1.554   Min.   : 1.139  
 1st Qu.:12.00   1st Qu.:16.063   1st Qu.:19.889   1st Qu.:14.663   1st Qu.:12.216   1st Qu.:15.075   1st Qu.:12.773   1st Qu.:10.694  
 Median :12.00   Median :16.063   Median :19.889   Median :14.663   Median :12.216   Median :15.075   Median :12.773   Median :10.694  
 Mean   :19.66   Mean   :24.112   Mean   :29.373   Mean   :22.640   Mean   :19.961   Mean   :23.304   Mean   :20.444   Mean   :17.920  
 3rd Qu.:28.00   3rd Qu.:34.094   3rd Qu.:39.834   3rd Qu.:31.994   3rd Qu.:28.324   3rd Qu.:32.612   3rd Qu.:29.159   3rd Qu.:26.040  
 Max.   :62.00   Max.   :66.063   Max.   :69.889   Max.   :64.663   Max.   :62.216   Max.   :65.075   Max.   :62.773   Max.   :60.694  
                                                                                                                                       
      PDM1              PDM2              PDM3             PDM4              PDM5              PDM6              PDM7        
 Min.   :  2.328   Min.   :  1.924   Min.   :  1.84   Min.   :  3.929   Min.   :  2.001   Min.   :  4.031   Min.   :  5.945  
 1st Qu.: 32.797   1st Qu.: 32.555   1st Qu.: 32.50   1st Qu.: 33.757   1st Qu.: 32.601   1st Qu.: 33.819   1st Qu.: 34.967  
 Median : 32.797   Median : 32.555   Median : 32.50   Median : 33.757   Median : 32.601   Median : 33.819   Median : 34.967  
 Mean   : 49.085   Mean   : 45.384   Mean   : 45.65   Mean   : 55.804   Mean   : 46.282   Mean   : 56.079   Mean   : 68.347  
 3rd Qu.: 32.797   3rd Qu.: 59.244   3rd Qu.: 58.40   3rd Qu.: 79.290   3rd Qu.: 60.011   3rd Qu.: 80.313   3rd Qu.: 99.445  
 Max.   :163.275   Max.   :159.244   Max.   :158.40   Max.   :179.290   Max.   :160.011   Max.   :180.313   Max.   :199.445  
                                                                                                                             
      PDM8              PDM9             PDM10             PDM11             PDM12              RLM1            RLM2            RLM3      
 Min.   :  3.331   Min.   :  2.108   Min.   :  3.537   Min.   :  2.386   Min.   :  1.347   Min.   :0.000   Min.   :0.000   Min.   :0.000  
 1st Qu.: 33.399   1st Qu.: 32.665   1st Qu.: 33.522   1st Qu.: 32.832   1st Qu.: 32.208   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000  
 Median : 33.399   Median : 32.665   Median : 33.522   Median : 32.832   Median : 32.208   Median :1.000   Median :1.000   Median :1.000  
 Mean   : 52.866   Mean   : 47.051   Mean   : 54.494   Mean   : 47.882   Mean   : 42.551   Mean   :1.373   Mean   :1.425   Mean   :1.429  
 3rd Qu.: 73.315   3rd Qu.: 61.080   3rd Qu.: 75.374   3rd Qu.: 63.862   3rd Qu.: 53.468   3rd Qu.:1.000   3rd Qu.:2.000   3rd Qu.:2.000  
 Max.   :173.315   Max.   :161.080   Max.   :175.374   Max.   :163.862   Max.   :153.468   Max.   :4.000   Max.   :4.000   Max.   :4.000  
                                                                                                                                          
      RLM4            RLM5            RLM6            RLM7            RLM8            RLM9           RLM10           RLM11      
 Min.   :0.000   Min.   :0.000   Min.   :0.000   Min.   :0.000   Min.   :0.000   Min.   :0.000   Min.   :0.000   Min.   :0.000  
 1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000  
 Median :1.000   Median :1.000   Median :1.000   Median :1.000   Median :1.000   Median :1.000   Median :1.000   Median :1.000  
 Mean   :1.878   Mean   :1.436   Mean   :1.866   Mean   :1.955   Mean   :1.441   Mean   :1.445   Mean   :1.895   Mean   :1.429  
 3rd Qu.:3.000   3rd Qu.:2.000   3rd Qu.:3.000   3rd Qu.:3.000   3rd Qu.:2.000   3rd Qu.:2.000   3rd Qu.:3.000   3rd Qu.:2.000  
 Max.   :5.000   Max.   :4.000   Max.   :5.000   Max.   :5.000   Max.   :4.000   Max.   :4.000   Max.   :5.000   Max.   :4.000  
                                                                                                                                
     RLM12           PSEM1           PSEM2     
 Min.   :0.000   Min.   :1.500   Min.   :1.50  
 1st Qu.:1.000   1st Qu.:1.750   1st Qu.:1.75  
 Median :1.000   Median :2.000   Median :2.00  
 Mean   :1.419   Mean   :1.892   Mean   :1.90  
 3rd Qu.:2.000   3rd Qu.:2.000   3rd Qu.:2.00  
 Max.   :4.000   Max.   :2.000   Max.   :2.00  
                                               
datos.integrados <- datos.alumnos.df
setwd(local.path)
The working directory was changed to /Users/jos/Downloads/mcc-ad/data inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.
save(datos.integrados, file="datos.integrados.R")
getwd()
[1] "/Users/jos/Downloads/mcc-ad/data"
load("datos.integrados.R")
datos.integrados
head(datos.integrados)
NA

#Separar 100 alumnos que no entraran en Kmeans

set.seed(1234)

ind <- sample(x=c(0,1),size=nrow(datos.integrados),
              replace=TRUE,prob = c(0.9,0.1))
ind
   [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  [68] 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 1 0 0 0 0 1 1 1 0 0 0 0 0 0 1 0 0 0
 [135] 1 0 1 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0
 [202] 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
 [269] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0
 [336] 0 0 0 1 0 1 0 0 1 0 0 0 0 1 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 0 0
 [403] 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
 [470] 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1
 [537] 0 0 0 0 0 0 1 0 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0
 [604] 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0
 [671] 0 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 1 0 0 1 0 0 0 1 1 0 0 0 0 0 0
 [738] 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
 [805] 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 1 1 0 0 0 0 0 0 1 0 0 0 0 0 1 0 1 0 0 1
 [872] 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
 [939] 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 1 0 0 0 0 1 0 0 0 0 0 1 0
alumnos.nuevos <- datos.integrados[ind==1,]
alumnos.actuales <- datos.integrados[ind==0,]

alumnos.nuevos
alumnos.actuales
summary(alumnos.nuevos)
 genero admision.letras admision.numeros promedio.preparatoria  edad.ingreso evalucion.socioeconomica nota.conducta   BECA        AM1       
 1:45   Min.   :44.94   Min.   : 4.878   Min.   : 60.00        17     :28    1: 6                     Min.   : 9.00   0:99   Min.   :1.875  
 2:75   1st Qu.:57.09   1st Qu.:29.176   1st Qu.: 61.26        19     :26    2:15                     1st Qu.:14.00   1:21   1st Qu.:1.875  
        Median :59.97   Median :34.947   Median : 69.92        18     :16    3:16                     Median :15.00          Median :1.875  
        Mean   :60.08   Mean   :35.167   Mean   : 72.31        16     :15    4:83                     Mean   :15.52          Mean   :1.875  
        3rd Qu.:63.28   3rd Qu.:41.556   3rd Qu.: 79.83        20     :13                             3rd Qu.:17.00          3rd Qu.:1.875  
        Max.   :72.00   Max.   :58.992   Max.   :100.00        15     :12                             Max.   :20.00          Max.   :1.875  
                                                               (Other):10                                                                   
      AM2             AM3             AM4             AM5             AM6             AM7             AM8             AM9       
 Min.   :1.406   Min.   :1.031   Min.   :1.031   Min.   :1.375   Min.   :1.125   Min.   :1.406   Min.   :1.125   Min.   :1.562  
 1st Qu.:1.875   1st Qu.:1.719   1st Qu.:1.812   1st Qu.:1.906   1st Qu.:1.875   1st Qu.:1.688   1st Qu.:1.938   1st Qu.:1.797  
 Median :1.875   Median :2.000   Median :1.812   Median :1.906   Median :1.875   Median :1.688   Median :1.938   Median :1.844  
 Mean   :1.786   Mean   :1.847   Mean   :1.670   Mean   :1.808   Mean   :1.739   Mean   :1.641   Mean   :1.825   Mean   :1.778  
 3rd Qu.:1.875   3rd Qu.:2.000   3rd Qu.:1.812   3rd Qu.:1.906   3rd Qu.:1.875   3rd Qu.:1.688   3rd Qu.:1.938   3rd Qu.:1.844  
 Max.   :1.875   Max.   :2.000   Max.   :1.812   Max.   :1.906   Max.   :1.875   Max.   :1.688   Max.   :1.938   Max.   :1.844  
                                                                                                                                
      AM10            AM11            AM12            CM1              CM2              CM3              CM4              CM5        
 Min.   :1.219   Min.   :1.562   Min.   :1.438   Min.   : 7.594   Min.   : 8.218   Min.   : 8.439   Min.   : 7.487   Min.   : 8.214  
 1st Qu.:2.000   1st Qu.:1.781   1st Qu.:1.969   1st Qu.:11.956   1st Qu.:12.331   1st Qu.:12.463   1st Qu.:11.892   1st Qu.:12.328  
 Median :2.000   Median :1.969   Median :1.969   Median :11.956   Median :12.331   Median :12.463   Median :11.892   Median :12.328  
 Mean   :1.885   Mean   :1.892   Mean   :1.897   Mean   :12.729   Mean   :13.579   Mean   :13.628   Mean   :13.225   Mean   :13.702  
 3rd Qu.:2.000   3rd Qu.:1.969   3rd Qu.:1.969   3rd Qu.:11.956   3rd Qu.:15.775   3rd Qu.:15.951   3rd Qu.:15.189   3rd Qu.:15.771  
 Max.   :2.000   Max.   :1.969   Max.   :1.969   Max.   :18.638   Max.   :18.887   Max.   :18.976   Max.   :18.595   Max.   :18.885  
                                                                                                                                     
      CM6             CM7              CM8              CM9              CM10             CM11             CM12             TM1        
 Min.   : 9.86   Min.   : 9.467   Min.   : 7.685   Min.   : 6.615   Min.   : 8.036   Min.   : 6.694   Min.   : 8.218   Min.   : 8.648  
 1st Qu.:13.32   1st Qu.:13.080   1st Qu.:12.011   1st Qu.:11.369   1st Qu.:12.221   1st Qu.:11.417   1st Qu.:12.331   1st Qu.:12.589  
 Median :15.20   Median :13.080   Median :12.011   Median :11.369   Median :12.221   Median :11.417   Median :12.331   Median :12.589  
 Mean   :15.15   Mean   :14.247   Mean   :13.263   Mean   :12.507   Mean   :13.653   Mean   :12.172   Mean   :13.711   Mean   :13.355  
 3rd Qu.:17.09   3rd Qu.:16.773   3rd Qu.:15.348   3rd Qu.:14.492   3rd Qu.:15.628   3rd Qu.:14.556   3rd Qu.:15.774   3rd Qu.:12.589  
 Max.   :19.54   Max.   :19.387   Max.   :18.674   Max.   :18.246   Max.   :18.814   Max.   :18.278   Max.   :18.887   Max.   :19.059  
                                                                                                                                       
      TM2              TM3             TM4              TM5              TM6              TM7              TM8              TM9        
 Min.   : 8.036   Min.   : 8.11   Min.   : 7.457   Min.   : 8.608   Min.   : 8.735   Min.   : 7.965   Min.   : 8.657   Min.   : 6.836  
 1st Qu.:12.221   1st Qu.:12.27   1st Qu.:11.874   1st Qu.:12.565   1st Qu.:12.641   1st Qu.:12.179   1st Qu.:12.594   1st Qu.:11.502  
 Median :12.221   Median :12.27   Median :11.874   Median :12.565   Median :14.415   Median :12.179   Median :12.594   Median :11.502  
 Mean   :13.448   Mean   :13.40   Mean   :13.204   Mean   :13.986   Mean   :14.364   Mean   :13.151   Mean   :13.943   Mean   :12.666  
 3rd Qu.:15.629   3rd Qu.:15.69   3rd Qu.:15.166   3rd Qu.:16.087   3rd Qu.:16.188   3rd Qu.:15.572   3rd Qu.:16.126   3rd Qu.:14.669  
 Max.   :18.814   Max.   :18.84   Max.   :18.583   Max.   :19.043   Max.   :19.094   Max.   :18.786   Max.   :19.063   Max.   :18.334  
                                                                                                                                       
      TM10             TM11             TM12             VBM1             VBM2            VBM3             VBM4             VBM5      
 Min.   : 8.418   Min.   : 7.003   Min.   : 8.624   Min.   : 1.531   Min.   : 1.37   Min.   : 1.336   Min.   : 2.172   Min.   : 1.40  
 1st Qu.:12.451   1st Qu.:11.602   1st Qu.:12.574   1st Qu.:12.655   1st Qu.:11.85   1st Qu.:11.680   1st Qu.:15.858   1st Qu.:12.00  
 Median :12.451   Median :11.602   Median :12.574   Median :12.655   Median :11.85   Median :11.680   Median :15.858   Median :12.00  
 Mean   :13.918   Mean   :12.397   Mean   :14.001   Mean   :18.942   Mean   :19.67   Mean   :19.901   Mean   :24.723   Mean   :20.29  
 3rd Qu.:15.934   3rd Qu.:14.802   3rd Qu.:16.099   3rd Qu.:12.655   3rd Qu.:27.77   3rd Qu.:27.521   3rd Qu.:33.787   3rd Qu.:28.00  
 Max.   :18.967   Max.   :18.401   Max.   :19.050   Max.   :62.655   Max.   :61.85   Max.   :61.680   Max.   :65.858   Max.   :62.00  
                                                                                                                                      
      VBM6             VBM7             VBM8             VBM9            VBM10            VBM11            VBM12             PDM1        
 Min.   : 2.213   Min.   : 2.978   Min.   : 1.933   Min.   : 1.443   Min.   : 2.015   Min.   : 1.554   Min.   : 1.139   Min.   :  2.328  
 1st Qu.:16.063   1st Qu.:19.889   1st Qu.:14.663   1st Qu.:12.216   1st Qu.:15.075   1st Qu.:12.773   1st Qu.:10.694   1st Qu.: 32.797  
 Median :25.078   Median :19.889   Median :14.663   Median :12.216   Median :15.075   Median :12.773   Median :10.694   Median : 32.797  
 Mean   :26.704   Mean   :27.247   Mean   :22.746   Mean   :20.068   Mean   :24.151   Mean   :20.014   Mean   :18.761   Mean   : 48.853  
 3rd Qu.:34.094   3rd Qu.:39.834   3rd Qu.:31.994   3rd Qu.:28.324   3rd Qu.:32.612   3rd Qu.:29.159   3rd Qu.:26.040   3rd Qu.: 32.797  
 Max.   :66.063   Max.   :69.889   Max.   :64.663   Max.   :62.216   Max.   :65.075   Max.   :62.773   Max.   :60.694   Max.   :163.275  
                                                                                                                                         
      PDM2              PDM3             PDM4              PDM5              PDM6              PDM7              PDM8        
 Min.   :  1.924   Min.   :  1.84   Min.   :  3.929   Min.   :  2.001   Min.   :  4.031   Min.   :  5.945   Min.   :  3.331  
 1st Qu.: 32.555   1st Qu.: 32.50   1st Qu.: 33.757   1st Qu.: 32.601   1st Qu.: 33.819   1st Qu.: 34.967   1st Qu.: 33.399  
 Median : 32.555   Median : 32.50   Median : 33.757   Median : 32.601   Median : 57.066   Median : 34.967   Median : 33.399  
 Mean   : 46.181   Mean   : 48.16   Mean   : 57.651   Mean   : 47.534   Mean   : 63.165   Mean   : 62.721   Mean   : 53.190  
 3rd Qu.: 59.244   3rd Qu.: 58.40   3rd Qu.: 79.290   3rd Qu.: 60.011   3rd Qu.: 80.313   3rd Qu.: 99.445   3rd Qu.: 73.315  
 Max.   :159.244   Max.   :158.40   Max.   :179.290   Max.   :160.011   Max.   :180.313   Max.   :199.445   Max.   :173.315  
                                                                                                                             
      PDM9             PDM10             PDM11             PDM12              RLM1            RLM2            RLM3            RLM4      
 Min.   :  2.108   Min.   :  3.537   Min.   :  2.386   Min.   :  1.347   Min.   :0.000   Min.   :0.000   Min.   :0.000   Min.   :0.000  
 1st Qu.: 32.665   1st Qu.: 33.522   1st Qu.: 32.832   1st Qu.: 32.208   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000  
 Median : 32.665   Median : 33.522   Median : 32.832   Median : 32.208   Median :1.000   Median :1.000   Median :1.000   Median :1.000  
 Mean   : 47.036   Mean   : 56.773   Mean   : 47.359   Mean   : 44.220   Mean   :1.367   Mean   :1.442   Mean   :1.458   Mean   :1.958  
 3rd Qu.: 61.080   3rd Qu.: 75.374   3rd Qu.: 63.862   3rd Qu.: 53.468   3rd Qu.:1.000   3rd Qu.:2.000   3rd Qu.:2.000   3rd Qu.:3.000  
 Max.   :161.080   Max.   :175.374   Max.   :163.862   Max.   :153.468   Max.   :4.000   Max.   :4.000   Max.   :4.000   Max.   :5.000  
                                                                                                                                        
      RLM5            RLM6            RLM7          RLM8           RLM9          RLM10           RLM11           RLM12           PSEM1     
 Min.   :0.000   Min.   :0.000   Min.   :0.0   Min.   :0.00   Min.   :0.00   Min.   :0.000   Min.   :0.000   Min.   :0.000   Min.   :1.50  
 1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.0   1st Qu.:1.00   1st Qu.:1.00   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.75  
 Median :1.000   Median :2.000   Median :1.0   Median :1.00   Median :1.00   Median :1.000   Median :1.000   Median :1.000   Median :2.00  
 Mean   :1.475   Mean   :2.092   Mean   :1.8   Mean   :1.45   Mean   :1.45   Mean   :1.958   Mean   :1.383   Mean   :1.475   Mean   :1.89  
 3rd Qu.:2.000   3rd Qu.:3.000   3rd Qu.:3.0   3rd Qu.:2.00   3rd Qu.:2.00   3rd Qu.:3.000   3rd Qu.:2.000   3rd Qu.:2.000   3rd Qu.:2.00  
 Max.   :4.000   Max.   :5.000   Max.   :5.0   Max.   :4.00   Max.   :4.00   Max.   :5.000   Max.   :4.000   Max.   :4.000   Max.   :2.00  
                                                                                                                                           
     PSEM2      
 Min.   :1.500  
 1st Qu.:1.750  
 Median :2.000  
 Mean   :1.923  
 3rd Qu.:2.000  
 Max.   :2.000  
                
summary(alumnos.actuales)
 genero  admision.letras admision.numeros promedio.preparatoria  edad.ingreso evalucion.socioeconomica nota.conducta   BECA   
 1:360   Min.   :44.99   Min.   : 4.986   Min.   : 60.00        17     :172   1: 50                    Min.   : 9.00   0:738  
 2:520   1st Qu.:56.59   1st Qu.:28.187   1st Qu.: 60.00        18     :151   2: 92                    1st Qu.:14.00   1:142  
         Median :60.04   Median :35.076   Median : 70.11        19     :140   3:136                    Median :15.50          
         Mean   :60.05   Mean   :35.107   Mean   : 72.24        16     :125   4:602                    Mean   :15.53          
         3rd Qu.:63.67   3rd Qu.:42.335   3rd Qu.: 81.00        20     :100                            3rd Qu.:17.00          
         Max.   :77.71   Max.   :70.411   Max.   :100.00        15     : 86                            Max.   :20.00          
                                                                (Other):106                                                   
      AM1             AM2             AM3             AM4             AM5             AM6             AM7             AM8       
 Min.   :1.875   Min.   :1.406   Min.   :1.031   Min.   :1.031   Min.   :1.375   Min.   :1.125   Min.   :1.406   Min.   :1.125  
 1st Qu.:1.875   1st Qu.:1.875   1st Qu.:1.719   1st Qu.:1.406   1st Qu.:1.562   1st Qu.:1.438   1st Qu.:1.594   1st Qu.:1.688  
 Median :1.875   Median :1.875   Median :2.000   Median :1.812   Median :1.906   Median :1.875   Median :1.688   Median :1.938  
 Mean   :1.875   Mean   :1.778   Mean   :1.836   Mean   :1.656   Mean   :1.793   Mean   :1.717   Mean   :1.631   Mean   :1.798  
 3rd Qu.:1.875   3rd Qu.:1.875   3rd Qu.:2.000   3rd Qu.:1.812   3rd Qu.:1.906   3rd Qu.:1.875   3rd Qu.:1.688   3rd Qu.:1.938  
 Max.   :1.875   Max.   :1.875   Max.   :2.000   Max.   :1.812   Max.   :1.906   Max.   :1.875   Max.   :1.688   Max.   :1.938  
                                                                                                                                
      AM9             AM10            AM11            AM12            CM1              CM2              CM3              CM4        
 Min.   :1.562   Min.   :1.219   Min.   :1.562   Min.   :1.438   Min.   : 7.594   Min.   : 8.218   Min.   : 8.439   Min.   : 7.487  
 1st Qu.:1.797   1st Qu.:2.000   1st Qu.:1.969   1st Qu.:1.969   1st Qu.:11.956   1st Qu.:12.331   1st Qu.:12.463   1st Qu.:11.892  
 Median :1.844   Median :2.000   Median :1.969   Median :1.969   Median :11.956   Median :12.331   Median :12.463   Median :11.892  
 Mean   :1.781   Mean   :1.870   Mean   :1.892   Mean   :1.872   Mean   :12.754   Mean   :13.566   Mean   :13.711   Mean   :13.042  
 3rd Qu.:1.844   3rd Qu.:2.000   3rd Qu.:1.969   3rd Qu.:1.969   3rd Qu.:11.956   3rd Qu.:15.775   3rd Qu.:15.951   3rd Qu.:15.189  
 Max.   :1.844   Max.   :2.000   Max.   :1.969   Max.   :1.969   Max.   :18.638   Max.   :18.887   Max.   :18.976   Max.   :18.595  
                                                                                                                                    
      CM5              CM6             CM7              CM8              CM9              CM10             CM11             CM12       
 Min.   : 8.214   Min.   : 9.86   Min.   : 9.467   Min.   : 7.685   Min.   : 6.615   Min.   : 8.036   Min.   : 6.694   Min.   : 8.218  
 1st Qu.:12.328   1st Qu.:13.32   1st Qu.:13.080   1st Qu.:12.011   1st Qu.:11.369   1st Qu.:12.221   1st Qu.:11.417   1st Qu.:12.331  
 Median :12.328   Median :13.32   Median :13.080   Median :12.011   Median :11.369   Median :12.221   Median :11.417   Median :12.331  
 Mean   :13.566   Mean   :14.67   Mean   :14.648   Mean   :13.229   Mean   :12.491   Mean   :13.466   Mean   :12.506   Mean   :13.516  
 3rd Qu.:15.771   3rd Qu.:17.09   3rd Qu.:16.773   3rd Qu.:15.348   3rd Qu.:14.492   3rd Qu.:15.628   3rd Qu.:14.556   3rd Qu.:15.774  
 Max.   :18.885   Max.   :19.54   Max.   :19.387   Max.   :18.674   Max.   :18.246   Max.   :18.814   Max.   :18.278   Max.   :18.887  
                                                                                                                                       
      TM1              TM2              TM3             TM4              TM5              TM6              TM7              TM8        
 Min.   : 8.648   Min.   : 8.036   Min.   : 8.11   Min.   : 7.457   Min.   : 8.608   Min.   : 8.735   Min.   : 7.965   Min.   : 8.657  
 1st Qu.:12.589   1st Qu.:12.221   1st Qu.:12.27   1st Qu.:11.874   1st Qu.:12.565   1st Qu.:12.641   1st Qu.:12.179   1st Qu.:12.594  
 Median :12.589   Median :12.221   Median :12.27   Median :11.874   Median :12.565   Median :12.641   Median :12.179   Median :12.594  
 Mean   :13.377   Mean   :13.435   Mean   :13.48   Mean   :13.021   Mean   :13.849   Mean   :13.871   Mean   :13.591   Mean   :13.917  
 3rd Qu.:12.589   3rd Qu.:15.629   3rd Qu.:15.69   3rd Qu.:15.166   3rd Qu.:16.087   3rd Qu.:16.188   3rd Qu.:15.572   3rd Qu.:16.126  
 Max.   :19.059   Max.   :18.814   Max.   :18.84   Max.   :18.583   Max.   :19.043   Max.   :19.094   Max.   :18.786   Max.   :19.063  
                                                                                                                                       
      TM9              TM10             TM11             TM12             VBM1             VBM2            VBM3             VBM4       
 Min.   : 6.836   Min.   : 8.418   Min.   : 7.003   Min.   : 8.624   Min.   : 1.531   Min.   : 1.37   Min.   : 1.336   Min.   : 2.172  
 1st Qu.:11.502   1st Qu.:12.451   1st Qu.:11.602   1st Qu.:12.574   1st Qu.:12.655   1st Qu.:11.85   1st Qu.:11.680   1st Qu.:15.858  
 Median :11.502   Median :12.451   Median :11.602   Median :12.574   Median :12.655   Median :11.85   Median :11.680   Median :15.858  
 Mean   :12.648   Mean   :13.737   Mean   :12.728   Mean   :13.806   Mean   :19.036   Mean   :19.24   Mean   :19.046   Mean   :23.866  
 3rd Qu.:14.669   3rd Qu.:15.934   3rd Qu.:14.802   3rd Qu.:16.099   3rd Qu.:12.655   3rd Qu.:27.77   3rd Qu.:27.521   3rd Qu.:33.787  
 Max.   :18.334   Max.   :18.967   Max.   :18.401   Max.   :19.050   Max.   :62.655   Max.   :61.85   Max.   :61.680   Max.   :65.858  
                                                                                                                                       
      VBM5            VBM6             VBM7             VBM8             VBM9            VBM10            VBM11            VBM12       
 Min.   : 1.40   Min.   : 2.213   Min.   : 2.978   Min.   : 1.933   Min.   : 1.443   Min.   : 2.015   Min.   : 1.554   Min.   : 1.139  
 1st Qu.:12.00   1st Qu.:16.063   1st Qu.:19.889   1st Qu.:14.663   1st Qu.:12.216   1st Qu.:15.075   1st Qu.:12.773   1st Qu.:10.694  
 Median :12.00   Median :16.063   Median :19.889   Median :14.663   Median :12.216   Median :15.075   Median :12.773   Median :10.694  
 Mean   :19.57   Mean   :23.758   Mean   :29.663   Mean   :22.626   Mean   :19.946   Mean   :23.188   Mean   :20.502   Mean   :17.805  
 3rd Qu.:28.00   3rd Qu.:34.094   3rd Qu.:39.834   3rd Qu.:31.994   3rd Qu.:28.324   3rd Qu.:32.612   3rd Qu.:29.159   3rd Qu.:26.040  
 Max.   :62.00   Max.   :66.063   Max.   :69.889   Max.   :64.663   Max.   :62.216   Max.   :65.075   Max.   :62.773   Max.   :60.694  
                                                                                                                                       
      PDM1              PDM2              PDM3             PDM4              PDM5              PDM6              PDM7        
 Min.   :  2.328   Min.   :  1.924   Min.   :  1.84   Min.   :  3.929   Min.   :  2.001   Min.   :  4.031   Min.   :  5.945  
 1st Qu.: 32.797   1st Qu.: 32.555   1st Qu.: 32.50   1st Qu.: 33.757   1st Qu.: 32.601   1st Qu.: 33.819   1st Qu.: 34.967  
 Median : 32.797   Median : 32.555   Median : 32.50   Median : 33.757   Median : 32.601   Median : 33.819   Median : 34.967  
 Mean   : 49.116   Mean   : 45.275   Mean   : 45.31   Mean   : 55.552   Mean   : 46.111   Mean   : 55.113   Mean   : 69.114  
 3rd Qu.: 32.797   3rd Qu.: 59.244   3rd Qu.: 58.40   3rd Qu.: 79.290   3rd Qu.: 60.011   3rd Qu.: 80.313   3rd Qu.: 99.445  
 Max.   :163.275   Max.   :159.244   Max.   :158.40   Max.   :179.290   Max.   :160.011   Max.   :180.313   Max.   :199.445  
                                                                                                                             
      PDM8              PDM9             PDM10             PDM11             PDM12              RLM1            RLM2            RLM3      
 Min.   :  3.331   Min.   :  2.108   Min.   :  3.537   Min.   :  2.386   Min.   :  1.347   Min.   :0.000   Min.   :0.000   Min.   :0.000  
 1st Qu.: 33.399   1st Qu.: 32.665   1st Qu.: 33.522   1st Qu.: 32.832   1st Qu.: 32.208   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000  
 Median : 33.399   Median : 32.665   Median : 33.522   Median : 32.832   Median : 32.208   Median :1.000   Median :1.000   Median :1.000  
 Mean   : 52.821   Mean   : 47.053   Mean   : 54.183   Mean   : 47.953   Mean   : 42.323   Mean   :1.374   Mean   :1.423   Mean   :1.425  
 3rd Qu.: 73.315   3rd Qu.: 61.080   3rd Qu.: 75.374   3rd Qu.: 63.862   3rd Qu.: 53.468   3rd Qu.:1.000   3rd Qu.:2.000   3rd Qu.:2.000  
 Max.   :173.315   Max.   :161.080   Max.   :175.374   Max.   :163.862   Max.   :153.468   Max.   :4.000   Max.   :4.000   Max.   :4.000  
                                                                                                                                          
      RLM4            RLM5            RLM6            RLM7            RLM8           RLM9           RLM10           RLM11      
 Min.   :0.000   Min.   :0.000   Min.   :0.000   Min.   :0.000   Min.   :0.00   Min.   :0.000   Min.   :0.000   Min.   :0.000  
 1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.00   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000  
 Median :1.000   Median :1.000   Median :1.000   Median :1.000   Median :1.00   Median :1.000   Median :1.000   Median :1.000  
 Mean   :1.867   Mean   :1.431   Mean   :1.835   Mean   :1.976   Mean   :1.44   Mean   :1.444   Mean   :1.886   Mean   :1.435  
 3rd Qu.:3.000   3rd Qu.:2.000   3rd Qu.:3.000   3rd Qu.:3.000   3rd Qu.:2.00   3rd Qu.:2.000   3rd Qu.:3.000   3rd Qu.:2.000  
 Max.   :5.000   Max.   :4.000   Max.   :5.000   Max.   :5.000   Max.   :4.00   Max.   :4.000   Max.   :5.000   Max.   :4.000  
                                                                                                                               
     RLM12           PSEM1           PSEM2      
 Min.   :0.000   Min.   :1.500   Min.   :1.500  
 1st Qu.:1.000   1st Qu.:1.750   1st Qu.:1.750  
 Median :1.000   Median :2.000   Median :2.000  
 Mean   :1.411   Mean   :1.893   Mean   :1.897  
 3rd Qu.:2.000   3rd Qu.:2.000   3rd Qu.:2.000  
 Max.   :4.000   Max.   :2.000   Max.   :2.000  
                                                
set.seed(1234)

ind <- sample(x=c(0,1),size=nrow(alumnos.actuales),
              replace=TRUE,prob = c(0.7,0.3))
ind
  [1] 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 1 0 1 1 0 0 0 0 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 1 0 1 1 0 0 0 0 1 0 0
 [69] 0 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 1 0 0 1 1 1 1 1 0 0 0 0 0 0 1 0 0 0 1 0
[137] 1 0 0 1 0 1 0 0 0 0 1 0 1 0 0 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0 1 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 1 0 1 1 1 1 1 1 0 0 0 0 1
[205] 0 1 0 0 0 1 0 0 0 1 0 1 0 1 0 1 0 0 0 0 0 0 1 0 0 0 1 0 0 1 0 0 1 0 0 1 0 0 0 0 1 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 0 1
[273] 0 1 0 0 1 0 0 0 0 0 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 0 1 0 0 1 0 0 1 0 1 1 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 1 0
[341] 1 0 0 1 0 0 0 0 1 0 0 1 0 1 1 1 0 1 0 1 0 0 0 0 1 1 0 0 1 1 1 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 1 0 0 1 0 0 0 0 0 0 1 1 0 0 1 0
[409] 0 0 1 1 1 0 1 0 0 1 0 0 0 1 0 0 1 0 0 0 0 0 0 1 0 1 0 0 0 1 1 0 1 1 1 0 1 0 1 0 0 0 0 1 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 1
[477] 0 0 1 0 0 0 0 0 0 0 1 1 1 0 0 1 1 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 0 1 0 1 1 0 0 1 0 0 0 0 1 0 0 1 0 1 0 0 0 0 0 0 0 1 0 1 0 0 1 0 0 0 1 0
[545] 1 0 1 1 1 1 0 0 1 0 1 1 0 0 0 1 0 1 0 1 0 1 1 0 0 0 0 1 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 1 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1
[613] 0 0 1 0 0 0 1 0 1 0 0 1 0 1 0 1 0 0 1 0 0 0 1 1 0 1 0 0 0 0 0 1 0 0 0 1 0 1 0 0 1 0 0 0 1 0 0 1 0 1 1 0 0 0 1 0 0 1 0 1 0 0 1 1 0 1 0 1
[681] 0 0 0 0 1 0 1 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 1 0 1 0 1 0 0 1 0 0 0 1 1 0 0 0 0 1 0 1 1 1 0 0 0 0 0 0 0 0
[749] 0 0 0 1 0 1 0 1 0 1 0 0 0 0 0 0 0 0 1 0 1 0 1 1 1 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 1 0 1 0 0 0 1 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0
[817] 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 1 1 1 0 0 1 0 0 0 0 0 0 0 0 1 0 1 1 1 0 1 1 0 0 0 0 0 1 1 0 0 0 0 0 1 0 1 0 0 1 1 1 0 1 0 0 0 0 0
alumnos.training <- alumnos.actuales[ind==0,]
alumnos.test <- alumnos.actuales[ind==1,]

str(alumnos.training)
'data.frame':   613 obs. of  82 variables:
 $ genero                  : Factor w/ 2 levels "1","2": 2 2 2 1 2 2 2 1 2 1 ...
 $ admision.letras         : num  60.1 59.1 53.1 57 61.9 ...
 $ admision.numeros        : num  35.2 33.2 21.3 29 38.9 ...
 $ promedio.preparatoria   : num  70.3 67.2 60 61 75.8 ...
 $ edad.ingreso            : Factor w/ 15 levels "11","12","13",..: 8 7 5 6 8 5 7 4 7 10 ...
 $ evalucion.socioeconomica: Factor w/ 4 levels "1","2","3","4": 4 4 4 4 4 4 4 4 4 4 ...
 $ nota.conducta           : num  16 15 13 14 16 13 15 12 15 18 ...
 $ BECA                    : Factor w/ 2 levels "0","1": 1 1 1 1 1 1 1 1 1 1 ...
 $ AM1                     : num  1.88 1.88 1.88 1.88 1.88 ...
 $ AM2                     : num  1.88 1.41 1.41 1.88 1.53 ...
 $ AM3                     : num  2 2 2 2 2 ...
 $ AM4                     : num  1.41 1.81 1.81 1.81 1.81 ...
 $ AM5                     : num  1.91 1.5 1.38 1.56 1.56 ...
 $ AM6                     : num  1.44 1.38 1.12 1.88 1.12 ...
 $ AM7                     : num  1.59 1.69 1.69 1.69 1.59 ...
 $ AM8                     : num  1.12 1.12 1.94 1.69 1.94 ...
 $ AM9                     : num  1.84 1.84 1.84 1.66 1.84 ...
 $ AM10                    : num  2 2 1.22 2 2 ...
 $ AM11                    : num  1.97 1.97 1.97 1.97 1.97 ...
 $ AM12                    : num  1.97 1.97 1.97 1.97 1.78 ...
 $ CM1                     : num  12 12 12 12 12 ...
 $ CM2                     : num  12.33 12.33 15.77 15.77 8.22 ...
 $ CM3                     : num  12.5 12.5 12.5 16 16 ...
 $ CM4                     : num  15.2 11.9 11.9 15.2 15.2 ...
 $ CM5                     : num  12.3 15.8 12.3 12.3 12.3 ...
 $ CM6                     : num  17.1 17.1 13.3 17.1 19.5 ...
 $ CM7                     : num  9.47 13.08 13.08 13.08 19.39 ...
 $ CM8                     : num  12.01 15.35 12.01 7.69 12.01 ...
 $ CM9                     : num  11.4 11.4 11.4 18.2 11.4 ...
 $ CM10                    : num  12.2 12.2 12.2 15.6 15.6 ...
 $ CM11                    : num  11.4 11.4 11.4 11.4 11.4 ...
 $ CM12                    : num  12.33 12.33 12.33 15.77 8.22 ...
 $ TM1                     : num  12.6 12.6 12.6 12.6 12.6 ...
 $ TM2                     : num  12.22 12.22 15.63 15.63 8.04 ...
 $ TM3                     : num  12.3 12.3 12.3 15.7 15.7 ...
 $ TM4                     : num  15.2 11.9 11.9 15.2 15.2 ...
 $ TM5                     : num  12.6 16.1 12.6 12.6 12.6 ...
 $ TM6                     : num  16.2 16.2 12.6 16.2 19.1 ...
 $ TM7                     : num  7.97 12.18 12.18 12.18 18.79 ...
 $ TM8                     : num  12.59 16.13 12.59 8.66 12.59 ...
 $ TM9                     : num  11.5 11.5 11.5 18.3 11.5 ...
 $ TM10                    : num  12.5 12.5 12.5 15.9 15.9 ...
 $ TM11                    : num  11.6 11.6 11.6 11.6 11.6 ...
 $ TM12                    : num  12.57 12.57 12.57 16.1 8.62 ...
 $ VBM1                    : num  12.7 12.7 12.7 12.7 12.7 ...
 $ VBM2                    : num  11.85 11.85 27.77 27.77 1.37 ...
 $ VBM3                    : num  11.7 11.7 11.7 27.5 27.5 ...
 $ VBM4                    : num  33.8 15.9 15.9 33.8 33.8 ...
 $ VBM5                    : num  12 28 12 12 12 ...
 $ VBM6                    : num  34.1 34.1 16.1 34.1 66.1 ...
 $ VBM7                    : num  2.98 19.89 19.89 19.89 69.89 ...
 $ VBM8                    : num  14.66 31.99 14.66 1.93 14.66 ...
 $ VBM9                    : num  12.2 12.2 12.2 62.2 12.2 ...
 $ VBM10                   : num  15.1 15.1 15.1 32.6 32.6 ...
 $ VBM11                   : num  12.8 12.8 12.8 12.8 12.8 ...
 $ VBM12                   : num  10.69 10.69 10.69 26.04 1.14 ...
 $ PDM1                    : num  32.8 32.8 32.8 32.8 32.8 ...
 $ PDM2                    : num  32.55 32.55 59.24 59.24 1.92 ...
 $ PDM3                    : num  32.5 32.5 32.5 58.4 58.4 ...
 $ PDM4                    : num  79.3 33.8 33.8 79.3 79.3 ...
 $ PDM5                    : num  32.6 60 32.6 32.6 32.6 ...
 $ PDM6                    : num  80.3 80.3 33.8 80.3 180.3 ...
 $ PDM7                    : num  5.94 34.97 34.97 34.97 199.45 ...
 $ PDM8                    : num  33.4 73.31 33.4 3.33 33.4 ...
 $ PDM9                    : num  32.7 32.7 32.7 161.1 32.7 ...
 $ PDM10                   : num  33.5 33.5 33.5 75.4 75.4 ...
 $ PDM11                   : num  32.8 32.8 32.8 32.8 32.8 ...
 $ PDM12                   : num  32.21 32.21 32.21 53.47 1.35 ...
 $ RLM1                    : num  1 1 1 1 1 4 2 1 1 1 ...
 $ RLM2                    : num  1 1 2 2 0 2 1 1 2 1 ...
 $ RLM3                    : num  1 1 1 2 2 2 2 1 2 1 ...
 $ RLM4                    : num  3 1 1 3 3 3 3 1 1 1 ...
 $ RLM5                    : num  1 2 1 1 1 2 1 1 2 1 ...
 $ RLM6                    : num  3 3 1 3 5 0 3 1 3 0 ...
 $ RLM7                    : num  0 1 1 1 5 3 1 1 3 1 ...
 $ RLM8                    : num  1 2 1 0 1 4 0 1 2 1 ...
 $ RLM9                    : num  1 1 1 4 1 2 2 1 1 2 ...
 $ RLM10                   : num  1 1 1 3 3 3 3 5 3 1 ...
 $ RLM11                   : num  1 1 1 1 1 2 1 1 1 1 ...
 $ RLM12                   : num  1 1 1 2 0 2 1 1 1 1 ...
 $ PSEM1                   : num  2 2 2 2 2 1.5 2 2 2 2 ...
 $ PSEM2                   : num  2 1.5 1.5 2 1.5 2 2 2 2 2 ...
set.seed(2020)
wss.alumnos <-vector()
wss.alumnos
logical(0)
centroides.alumnos <- 25
for ( i in 1:centroides.alumnos ) wss.alumnos[i] <- sum(kmeans(alumnos.training,centers = i)$withinss)

#plot
plot(1:centroides.alumnos  , wss.alumnos , type="b", xlab="Numer de clusters", ylab="Error standard")

Analísis de hombro, brazo, codo para seleccionar el centroide

imgPath.codo <- paste(local.path.imgs,"/Kmeans-codo-alumnos.png",sep = "")


img.codo.alumnos <- readPNG(imgPath.codo)
plot.new()
rasterImage(img.codo.alumnos,0,0,1,1)

set.seed(2020)
wss.alumnos <-vector()
wss.alumnos
logical(0)
centroides.alumnos <- 10
for ( i in 1:centroides.alumnos ) wss.alumnos[i] <- sum(kmeans(alumnos.training,centers = i)$withinss)

#plot
plot(1:centroides.alumnos  , wss.alumnos , type="b", xlab="Numer de clusters", ylab="Error standard")

imgPath.codo.seleccionado <- paste(local.path.imgs,"/Kmeans-codo-alumnos-seleccionado.png",sep = "")


img.codo.sel.alumnos <- readPNG(imgPath.codo.seleccionado)
plot.new()
rasterImage(img.codo.sel.alumnos,0,0,1,1)

clustering.kmeans <- kmeans(x=alumnos.training, centers = 4)
clustering.kmeans$withinss
[1]  867289.6 2325698.5 1619780.3 3420804.7
alumnos.training$genero <- as.numeric(alumnos.training$genero)
alumnos.training$edad.ingreso <- as.numeric(alumnos.training$edad.ingreso)
alumnos.training$evalucion.socioeconomica <- as.numeric(alumnos.training$evalucion.socioeconomica)
alumnos.training$BECA <- as.numeric(alumnos.training$BECA)
sum(is.na(alumnos.training))
[1] 0
#str(alumnos.training)
datos.alumnos.df$genero <- as.numeric(datos.alumnos.df$genero)
datos.alumnos.df$edad.ingreso <- as.numeric(datos.alumnos.df$edad.ingreso)
datos.alumnos.df$BECA <- as.numeric(datos.alumnos.df$BECA)
datos.alumnos.df$evalucion.socioeconomica <- as.numeric(datos.alumnos.df$evalucion.socioeconomica)
str(datos.alumnos.df)
'data.frame':   1000 obs. of  82 variables:
 $ genero                  : num  2 2 2 1 2 2 2 2 1 2 ...
 $ admision.letras         : num  60.1 59.1 53.1 57 61.5 ...
 $ admision.numeros        : num  35.2 33.2 21.3 29 37.9 ...
 $ promedio.preparatoria   : num  70.3 67.2 60 61 74.4 ...
 $ edad.ingreso            : num  8 7 5 6 8 8 5 7 4 7 ...
 $ evalucion.socioeconomica: num  4 4 4 4 4 4 4 4 4 4 ...
 $ nota.conducta           : num  16 15 13 14 16 16 13 15 12 15 ...
 $ BECA                    : num  1 1 1 1 1 1 1 1 1 1 ...
 $ AM1                     : num  1.88 1.88 1.88 1.88 1.88 ...
 $ AM2                     : num  1.88 1.41 1.41 1.88 1.41 ...
 $ AM3                     : num  2 2 2 2 1.72 ...
 $ AM4                     : num  1.41 1.81 1.81 1.81 1.81 ...
 $ AM5                     : num  1.91 1.5 1.38 1.56 1.91 ...
 $ AM6                     : num  1.44 1.38 1.12 1.88 1.12 ...
 $ AM7                     : num  1.59 1.69 1.69 1.69 1.69 ...
 $ AM8                     : num  1.12 1.12 1.94 1.69 1.12 ...
 $ AM9                     : num  1.84 1.84 1.84 1.66 1.66 ...
 $ AM10                    : num  2 2 1.22 2 2 ...
 $ AM11                    : num  1.97 1.97 1.97 1.97 1.97 ...
 $ AM12                    : num  1.97 1.97 1.97 1.97 1.97 ...
 $ CM1                     : num  12 12 12 12 12 ...
 $ CM2                     : num  12.3 12.3 15.8 15.8 12.3 ...
 $ CM3                     : num  12.5 12.5 12.5 16 16 ...
 $ CM4                     : num  15.2 11.9 11.9 15.2 11.9 ...
 $ CM5                     : num  12.3 15.8 12.3 12.3 12.3 ...
 $ CM6                     : num  17.1 17.1 13.3 17.1 13.3 ...
 $ CM7                     : num  9.47 13.08 13.08 13.08 13.08 ...
 $ CM8                     : num  12.01 15.35 12.01 7.69 15.35 ...
 $ CM9                     : num  11.37 11.37 11.37 18.25 6.61 ...
 $ CM10                    : num  12.2 12.2 12.2 15.6 12.2 ...
 $ CM11                    : num  11.4 11.4 11.4 11.4 11.4 ...
 $ CM12                    : num  12.3 12.3 12.3 15.8 12.3 ...
 $ TM1                     : num  12.6 12.6 12.6 12.6 12.6 ...
 $ TM2                     : num  12.2 12.2 15.6 15.6 12.2 ...
 $ TM3                     : num  12.3 12.3 12.3 15.7 15.7 ...
 $ TM4                     : num  15.2 11.9 11.9 15.2 11.9 ...
 $ TM5                     : num  12.6 16.1 12.6 12.6 12.6 ...
 $ TM6                     : num  16.2 16.2 12.6 16.2 12.6 ...
 $ TM7                     : num  7.97 12.18 12.18 12.18 12.18 ...
 $ TM8                     : num  12.59 16.13 12.59 8.66 16.13 ...
 $ TM9                     : num  11.5 11.5 11.5 18.33 6.84 ...
 $ TM10                    : num  12.5 12.5 12.5 15.9 12.5 ...
 $ TM11                    : num  11.6 11.6 11.6 11.6 11.6 ...
 $ TM12                    : num  12.6 12.6 12.6 16.1 12.6 ...
 $ VBM1                    : num  12.7 12.7 12.7 12.7 12.7 ...
 $ VBM2                    : num  11.8 11.8 27.8 27.8 11.8 ...
 $ VBM3                    : num  11.7 11.7 11.7 27.5 27.5 ...
 $ VBM4                    : num  33.8 15.9 15.9 33.8 15.9 ...
 $ VBM5                    : num  12 28 12 12 12 ...
 $ VBM6                    : num  34.1 34.1 16.1 34.1 16.1 ...
 $ VBM7                    : num  2.98 19.89 19.89 19.89 19.89 ...
 $ VBM8                    : num  14.66 31.99 14.66 1.93 31.99 ...
 $ VBM9                    : num  12.22 12.22 12.22 62.22 1.44 ...
 $ VBM10                   : num  15.1 15.1 15.1 32.6 15.1 ...
 $ VBM11                   : num  12.8 12.8 12.8 12.8 12.8 ...
 $ VBM12                   : num  10.7 10.7 10.7 26 10.7 ...
 $ PDM1                    : num  32.8 32.8 32.8 32.8 32.8 ...
 $ PDM2                    : num  32.6 32.6 59.2 59.2 32.6 ...
 $ PDM3                    : num  32.5 32.5 32.5 58.4 58.4 ...
 $ PDM4                    : num  79.3 33.8 33.8 79.3 33.8 ...
 $ PDM5                    : num  32.6 60 32.6 32.6 32.6 ...
 $ PDM6                    : num  80.3 80.3 33.8 80.3 33.8 ...
 $ PDM7                    : num  5.94 34.97 34.97 34.97 34.97 ...
 $ PDM8                    : num  33.4 73.31 33.4 3.33 73.31 ...
 $ PDM9                    : num  32.66 32.66 32.66 161.08 2.11 ...
 $ PDM10                   : num  33.5 33.5 33.5 75.4 33.5 ...
 $ PDM11                   : num  32.8 32.8 32.8 32.8 32.8 ...
 $ PDM12                   : num  32.2 32.2 32.2 53.5 32.2 ...
 $ RLM1                    : num  1 1 1 1 1 1 4 2 1 1 ...
 $ RLM2                    : num  1 1 2 2 1 0 2 1 1 2 ...
 $ RLM3                    : num  1 1 1 2 2 2 2 2 1 2 ...
 $ RLM4                    : num  3 1 1 3 1 3 3 3 1 1 ...
 $ RLM5                    : num  1 2 1 1 1 1 2 1 1 2 ...
 $ RLM6                    : num  3 3 1 3 1 5 0 3 1 3 ...
 $ RLM7                    : num  0 1 1 1 1 5 3 1 1 3 ...
 $ RLM8                    : num  1 2 1 0 2 1 4 0 1 2 ...
 $ RLM9                    : num  1 1 1 4 0 1 2 2 1 1 ...
 $ RLM10                   : num  1 1 1 3 1 3 3 3 5 3 ...
 $ RLM11                   : num  1 1 1 1 1 1 2 1 1 1 ...
 $ RLM12                   : num  1 1 1 2 1 0 2 1 1 1 ...
 $ PSEM1                   : num  2 2 2 2 2 2 1.5 2 2 2 ...
 $ PSEM2                   : num  2 1.5 1.5 2 2 1.5 2 2 2 2 ...
#ds.test <- data.frame()
#ds.test <- cbind(datos.alumnos.df$genero, datos.alumnos.df$CM1)
#str(ds.test)
sum(datos.alumnos.df$AM11)
[1] 1892.344
colnames(datos.alumnos.df)
 [1] "genero"                   "admision.letras"          "admision.numeros"         "promedio.preparatoria"    "edad.ingreso"             "evalucion.socioeconomica" "nota.conducta"            "BECA"                    
 [9] "AM1"                      "AM2"                      "AM3"                      "AM4"                      "AM5"                      "AM6"                      "AM7"                      "AM8"                     
[17] "AM9"                      "AM10"                     "AM11"                     "AM12"                     "CM1"                      "CM2"                      "CM3"                      "CM4"                     
[25] "CM5"                      "CM6"                      "CM7"                      "CM8"                      "CM9"                      "CM10"                     "CM11"                     "CM12"                    
[33] "TM1"                      "TM2"                      "TM3"                      "TM4"                      "TM5"                      "TM6"                      "TM7"                      "TM8"                     
[41] "TM9"                      "TM10"                     "TM11"                     "TM12"                     "VBM1"                     "VBM2"                     "VBM3"                     "VBM4"                    
[49] "VBM5"                     "VBM6"                     "VBM7"                     "VBM8"                     "VBM9"                     "VBM10"                    "VBM11"                    "VBM12"                   
[57] "PDM1"                     "PDM2"                     "PDM3"                     "PDM4"                     "PDM5"                     "PDM6"                     "PDM7"                     "PDM8"                    
[65] "PDM9"                     "PDM10"                    "PDM11"                    "PDM12"                    "RLM1"                     "RLM2"                     "RLM3"                     "RLM4"                    
[73] "RLM5"                     "RLM6"                     "RLM7"                     "RLM8"                     "RLM9"                     "RLM10"                    "RLM11"                    "RLM12"                   
[81] "PSEM1"                    "PSEM2"                   
#AM1 out
#ds <- datos.alumnos.df
#ds.test <- data.frame()
#ds.test <- cbind(ds$genero, ds$admision.letras, ds$admision.numeros, ds$promedio.preparatoria, ds$edad.ingreso, ds$evalucion.socioeconomica, ds$nota.conducta, ds$BECA, ds$AM1 )
ds.data.analisis <- datos.alumnos.df
ds.data.analisis$AM1 <- NULL


dataframe.to.cor <- ds.data.analisis

library(corrplot)
source("http://www.sthda.com/upload/rquery_cormat.r")
rquery.cormat(dataframe.to.cor)
$r

$p

$sym
                         AM9 AM3 AM5 VBM6 PDM6 RLM6 CM6 TM6 AM11 AM12 VBM10 PDM10 RLM10 CM10 TM10 AM7 AM8 AM4 CM1 TM1 RLM1 VBM1 PDM1 BECA CM3 TM3 PDM3 VBM3
AM9                      1                                                                                                                                 
AM3                          1                                                                                                                             
AM5                              1                                                                                                                         
VBM6                                 1                                                                                                                     
PDM6                                 1    1                                                                                                                
RLM6                                 B    B    1                                                                                                           
CM6                                  B    *    B    1                                                                                                      
TM6                                  B    *    B    1   1                                                                                                  
AM11                                                        1                                                                                              
AM12                                                             1                                                                                         
VBM10                                                                 1                                                                                    
PDM10                                                                 B     1                                                                              
                         RLM3 CM2 TM2 PDM2 VBM2 RLM2 CM12 TM12 PDM12 VBM12 RLM12 PSEM1 promedio.preparatoria admision.letras admision.numeros edad.ingreso
AM9                                                                                                                                                       
AM3                                                                                                                                                       
AM5                                                                                                                                                       
VBM6                                                                                                                                                      
PDM6                                                                                                                                                      
RLM6                                                                                                                                                      
CM6                                                                                                                                                       
TM6                                                                                                                                                       
AM11                                                                                                                                                      
AM12                                                                                                                                                      
VBM10                                                                                                                                                     
PDM10                                                                                                                                                     
                         nota.conducta genero evalucion.socioeconomica CM7 TM7 RLM7 VBM7 PDM7 CM4 TM4 RLM4 VBM4 PDM4 CM8 TM8 PDM8 VBM8 RLM8 AM6 AM10 CM9 TM9
AM9                                                                                                                                                         
AM3                                                                                                                                                         
AM5                                                                                                                                                         
VBM6                                                                                                                                                        
PDM6                                                                                                                                                        
RLM6                                                                                                                                                        
CM6                                                                                                                                                         
TM6                                                                                                                                                         
AM11                                                                                                                                                        
AM12                                                                                                                                                        
VBM10                                                                                                                                                       
PDM10                                                                                                                                                       
                         PDM9 VBM9 RLM9 CM5 TM5 PDM5 VBM5 RLM5 CM11 TM11 RLM11 VBM11 PDM11 AM2 PSEM2
AM9                                                                                                 
AM3                                                                                                 
AM5                                                                                                 
VBM6                                                                                                
PDM6                                                                                                
RLM6                                                                                                
CM6                                                                                                 
TM6                                                                                                 
AM11                                                                                                
AM12                                                                                                
VBM10                                                                                               
PDM10                                                                                               
 [ reached getOption("max.print") -- omitted 69 rows ]
attr(,"legend")
[1] 0 ‘ ’ 0.3 ‘.’ 0.6 ‘,’ 0.8 ‘+’ 0.9 ‘*’ 0.95 ‘B’ 1
col<- colorRampPalette(c("blue", "white", "red"))(20)
# create device
?jpeg
jpeg('correlacion-alumnos-ad.jpg', width=1920, height=1080)
rquery.cormat(dataframe.to.cor, type="full", col=col)
$r
                             AM9    AM3      AM5    VBM6    PDM6   RLM6     CM6     TM6    AM11     AM12    VBM10   PDM10  RLM10    CM10    TM10     AM7
AM9                       1.0000  0.150  0.17000  0.1700  0.1700  0.190  0.1600  0.1500  0.1500  0.12000  0.09400  0.0900  0.120  0.0770  0.0810  0.1100
AM3                       0.1500  1.000  0.21000  0.1300  0.1300  0.160  0.1300  0.1200  0.1800  0.16000  0.15000  0.1400  0.180  0.1200  0.1300  0.2000
AM5                       0.1700  0.210  1.00000  0.1200  0.1300  0.150  0.1200  0.1100  0.1300  0.18000  0.10000  0.0950  0.120  0.0840  0.0880  0.2000
VBM6                      0.1700  0.130  0.12000  1.0000  1.0000  0.980  0.9600  0.9600  0.1600  0.16000  0.14000  0.1300  0.160  0.1100  0.1100  0.1800
PDM6                      0.1700  0.130  0.13000  1.0000  1.0000  0.970  0.9200  0.9300  0.1600  0.16000  0.14000  0.1400  0.160  0.1100  0.1200  0.1700
RLM6                      0.1900  0.160  0.15000  0.9800  0.9700  1.000  0.9800  0.9700  0.1900  0.18000  0.16000  0.1500  0.180  0.1200  0.1300  0.2100
CM6                       0.1600  0.130  0.12000  0.9600  0.9200  0.980  1.0000  1.0000  0.1600  0.15000  0.13000  0.1300  0.150  0.1100  0.1100  0.1900
TM6                       0.1500  0.120  0.11000  0.9600  0.9300  0.970  1.0000  1.0000  0.1500  0.14000  0.12000  0.1200  0.140  0.0980  0.1000  0.1800
AM11                      0.1500  0.180  0.13000  0.1600  0.1600  0.190  0.1600  0.1500  1.0000  0.23000  0.14000  0.1300  0.160  0.1100  0.1200  0.1400
AM12                      0.1200  0.160  0.18000  0.1600  0.1600  0.180  0.1500  0.1400  0.2300  1.00000  0.16000  0.1600  0.180  0.1400  0.1400  0.1500
VBM10                     0.0940  0.150  0.10000  0.1400  0.1400  0.160  0.1300  0.1200  0.1400  0.16000  1.00000  0.9900  0.980  0.9500  0.9500  0.1800
PDM10                     0.0900  0.140  0.09500  0.1300  0.1400  0.150  0.1300  0.1200  0.1300  0.16000  0.99000  1.0000  0.960  0.9200  0.9200  0.1700
                             AM8      AM4     CM1     TM1     RLM1    VBM1     PDM1     BECA     CM3     TM3    PDM3    VBM3    RLM3     CM2     TM2    PDM2
AM9                       0.0680  0.14000  0.1600  0.1600  0.17000  0.1800  0.18000  0.06500  0.0410  0.0380  0.0280  0.0520  0.0410  0.0490  0.0470  0.0490
AM3                       0.2100  0.19000  0.1500  0.1500  0.17000  0.1700  0.17000 -0.02800  0.0110  0.0100 -0.0730 -0.0520 -0.0370  0.0860  0.0840  0.0800
AM5                       0.1400  0.11000  0.1600  0.1600  0.18000  0.1900  0.18000  0.01200  0.0770  0.0740  0.0820  0.1000  0.0890  0.0730  0.0710  0.0550
VBM6                      0.1300  0.13000  0.2000  0.2000  0.20000  0.2000  0.19000 -0.00790  0.0870  0.0840  0.1000  0.1200  0.1000  0.0990  0.0970  0.1100
PDM6                      0.1300  0.13000  0.2000  0.2000  0.20000  0.2000  0.20000 -0.00570  0.0850  0.0820  0.1000  0.1200  0.1000  0.1000  0.1000  0.1200
RLM6                      0.1400  0.16000  0.2200  0.2200  0.22000  0.2200  0.22000 -0.01500  0.1000  0.1000  0.1100  0.1400  0.1200  0.1200  0.1100  0.1300
CM6                       0.1200  0.14000  0.1900  0.1900  0.19000  0.1900  0.18000 -0.01600  0.0930  0.0910  0.1000  0.1200  0.1100  0.0900  0.0890  0.1000
TM6                       0.1100  0.13000  0.1800  0.1800  0.17000  0.1700  0.17000 -0.01400  0.0860  0.0840  0.0940  0.1100  0.1000  0.0810  0.0800  0.0930
AM11                      0.1600  0.14000  0.1700  0.1700  0.18000  0.1900  0.19000 -0.02800  0.1100  0.1100  0.1100  0.1400  0.1200  0.1300  0.1300  0.1300
AM12                      0.1400  0.13000  0.1500  0.1500  0.17000  0.1800  0.18000 -0.01300  0.1100  0.1000  0.1100  0.1400  0.1200  0.1300  0.1300  0.1100
VBM10                     0.1500  0.11000  0.1700  0.1700  0.17000  0.1800  0.18000 -0.01200  0.0340  0.0320  0.0360  0.0570  0.0430  0.0720  0.0700  0.0540
PDM10                     0.1400  0.10000  0.1700  0.1700  0.18000  0.1800  0.18000 -0.01200  0.0340  0.0320  0.0400  0.0590  0.0450  0.0710  0.0700  0.0500
                            VBM2    RLM2     CM12    TM12    PDM12   VBM12    RLM12   PSEM1 promedio.preparatoria admision.letras admision.numeros
AM9                       0.0730  0.0580  0.11000  0.1200  0.09400  0.1300  0.12000 -0.2500               8.6e-03         0.00340          0.00340
AM3                       0.1100  0.0950  0.06000  0.0650  0.03200  0.0830  0.06400 -0.2700               3.1e-02         0.03400          0.03400
AM5                       0.0860  0.0730  0.11000  0.1100  0.08900  0.1300  0.11000 -0.2700               3.2e-02         0.03500          0.03500
VBM6                      0.1300  0.1200  0.07200  0.0760  0.05600  0.0930  0.07900 -0.2400              -2.3e-02        -0.01900         -0.01900
PDM6                      0.1400  0.1200  0.07700  0.0810  0.05900  0.0970  0.08300 -0.2500              -2.6e-02        -0.02100         -0.02100
RLM6                      0.1500  0.1300  0.08200  0.0870  0.06300  0.1100  0.09000 -0.2900              -1.5e-02        -0.01000         -0.01000
CM6                       0.1200  0.1100  0.06000  0.0630  0.04700  0.0840  0.06800 -0.2400              -1.2e-02        -0.00800         -0.00800
TM6                       0.1100  0.0960  0.05300  0.0570  0.04200  0.0760  0.06100 -0.2100              -1.5e-02        -0.01100         -0.01100
AM11                      0.1700  0.1500  0.07700  0.0810  0.04900  0.0930  0.07900 -0.2800              -2.5e-02        -0.02900         -0.02900
AM12                      0.1500  0.1300  0.08400  0.0840 -0.04700 -0.0260  0.01300 -0.2800              -6.8e-03        -0.00044         -0.00044
VBM10                     0.0780  0.0700  0.03100  0.0330  0.02500  0.0480  0.03700 -0.2300               3.1e-02         0.03500          0.03500
PDM10                     0.0740  0.0670  0.02800  0.0300  0.02300  0.0450  0.03400 -0.2300               3.0e-02         0.03500          0.03500
                         edad.ingreso nota.conducta   genero evalucion.socioeconomica      CM7     TM7    RLM7     VBM7     PDM7      CM4      TM4   RLM4
AM9                          -0.00170      -4.0e-03 -0.01100                 -0.04700  1.1e-01  0.0950  0.1500  0.12000  0.15000  3.9e-02  0.03900  0.082
AM3                           0.02700       2.7e-02  0.04600                  0.03400  1.2e-01  0.1000  0.1600  0.13000  0.15000  9.4e-02  0.09400  0.140
AM5                           0.03200       3.0e-02  0.01700                  0.00051  1.1e-01  0.0950  0.1300  0.11000  0.13000  1.1e-01  0.11000  0.160
VBM6                         -0.02400      -2.2e-02  0.00680                  0.00570  3.4e-02  0.0190  0.0560  0.03100  0.04900  9.6e-02  0.09600  0.120
PDM6                         -0.02700      -2.5e-02  0.00730                  0.00520  4.0e-02  0.0240  0.0630  0.03700  0.05600  9.7e-02  0.09700  0.120
RLM6                         -0.01600      -1.3e-02  0.01500                  0.01200  4.9e-02  0.0320  0.0730  0.04600  0.06500  1.1e-01  0.11000  0.140
CM6                          -0.01400      -9.4e-03  0.00870                  0.00940  2.3e-02  0.0100  0.0420  0.02000  0.03600  9.5e-02  0.09500  0.120
TM6                          -0.01600      -1.2e-02  0.00480                  0.00670  1.4e-02  0.0024  0.0310  0.01200  0.02600  8.9e-02  0.08900  0.110
AM11                         -0.02700      -2.8e-02  0.02400                  0.01300  1.4e-01  0.1200  0.1700  0.14000  0.16000  8.0e-02  0.08000  0.140
AM12                         -0.00710      -9.3e-03  0.03600                  0.01400  1.1e-01  0.0970  0.1400  0.12000  0.14000  1.2e-01  0.12000  0.170
VBM10                         0.03000       3.1e-02 -0.06300                 -0.01100  5.4e-02  0.0430  0.0760  0.05700  0.07300  7.6e-02  0.07600  0.120
PDM10                         0.02900       3.0e-02 -0.06100                 -0.01000  5.0e-02  0.0390  0.0720  0.05300  0.06900  7.1e-02  0.07100  0.120
                            VBM4     PDM4      CM8     TM8    PDM8    VBM8    RLM8     AM6    AM10     CM9     TM9     PDM9    VBM9    RLM9    CM5     TM5
AM9                       0.0590  0.05900  0.10000  0.1100  0.1200  0.1300  0.1200  0.1000  0.1800 -0.0240 -0.0250 -0.13000 -0.1200 -0.0940  0.043  0.0470
AM3                       0.1200  0.12000  0.07600  0.0860  0.1000  0.1100  0.0940  0.1700  0.1600  0.1000  0.1000  0.10000  0.1300  0.1200  0.068  0.0730
AM5                       0.1500  0.15000  0.14000  0.1400  0.1500  0.1600  0.1500  0.1600  0.1400  0.0480  0.0500  0.06200  0.0800  0.0680  0.020  0.0210
VBM6                      0.1000  0.09500  0.13000  0.1400  0.1300  0.1400  0.1300 -0.0580  0.1400  0.0580  0.0600  0.06100  0.0830  0.0730  0.100  0.1100
PDM6                      0.1000  0.09700  0.14000  0.1500  0.1400  0.1500  0.1400 -0.0820  0.1400  0.0560  0.0580  0.05900  0.0820  0.0710  0.110  0.1100
RLM6                      0.1200  0.11000  0.14000  0.1500  0.1400  0.1600  0.1400 -0.0310  0.1600  0.0810  0.0830  0.08700  0.1100  0.1000  0.110  0.1200
CM6                       0.0970  0.09200  0.11000  0.1200  0.1100  0.1200  0.1100  0.0170  0.1400  0.0690  0.0710  0.07400  0.0960  0.0850  0.092  0.0950
TM6                       0.0880  0.08300  0.11000  0.1200  0.1000  0.1100  0.1000  0.0140  0.1300  0.0600  0.0610  0.06300  0.0830  0.0730  0.086  0.0890
AM11                      0.1100  0.12000  0.07500  0.0850  0.0970  0.1000  0.0890  0.1500  0.1200  0.1000  0.1000  0.09800  0.1200  0.1100  0.092  0.0970
AM12                      0.1500  0.16000  0.08800  0.0980  0.1100  0.1100  0.1000  0.0860  0.1700  0.0500  0.0520  0.06600  0.0880  0.0730  0.083  0.0870
VBM10                     0.1200  0.12000 -0.00033  0.0084  0.0340  0.0350  0.0210  0.1400 -0.0660  0.0680  0.0700  0.09900  0.1200  0.0990  0.064  0.0680
PDM10                     0.1100  0.12000 -0.00380  0.0049  0.0310  0.0320  0.0180  0.1300 -0.0840  0.0610  0.0630  0.09400  0.1100  0.0940  0.065  0.0690
                            PDM5    VBM5    RLM5    CM11    TM11   RLM11   VBM11   PDM11     AM2   PSEM2
AM9                       0.0200  0.0510  0.0390  0.0520  0.0550  0.0760  0.0900  0.0740  0.1000  0.0370
AM3                       0.0550  0.0880  0.0720  0.0780  0.0810  0.1100  0.1300  0.1100  0.1800  0.0780
AM5                      -0.1200 -0.0910 -0.0610  0.0470  0.0500  0.0730  0.0900  0.0690  0.1800  0.0680
VBM6                      0.0890  0.1200  0.1100  0.0380  0.0400  0.0620  0.0750  0.0630  0.1500  0.0710
PDM6                      0.0940  0.1200  0.1100  0.0380  0.0400  0.0620  0.0760  0.0640  0.1600  0.0710
RLM6                      0.0980  0.1300  0.1200  0.0550  0.0580  0.0810  0.0960  0.0800  0.1800  0.0860
CM6                       0.0750  0.1000  0.0920  0.0450  0.0470  0.0650  0.0770  0.0640  0.1400  0.0740
TM6                       0.0680  0.0960  0.0850  0.0380  0.0400  0.0570  0.0680  0.0560  0.1300  0.0680
AM11                      0.0940  0.1300  0.1100  0.0590  0.0590  0.0015 -0.0180 -0.0390  0.1700  0.0760
AM12                      0.0890  0.1100  0.0960  0.0610  0.0640  0.0880  0.1100  0.0840  0.1200  0.0760
VBM10                     0.0420  0.0700  0.0600  0.0200  0.0220  0.0260  0.0340  0.0150  0.1300  0.0630
PDM10                     0.0420  0.0690  0.0600  0.0180  0.0210  0.0240  0.0320  0.0120  0.1200  0.0610
 [ reached getOption("max.print") -- omitted 69 rows ]

$p
                             AM9     AM3     AM5    VBM6    PDM6    RLM6     CM6     TM6    AM11    AM12   VBM10   PDM10   RLM10    CM10    TM10     AM7
AM9                      0.0e+00 1.3e-06 1.0e-07 6.5e-08 3.9e-08 1.6e-09 2.5e-07 1.4e-06 2.6e-06 2.1e-04 2.8e-03 4.6e-03 1.6e-04 1.5e-02 1.0e-02 4.5e-04
AM3                      1.3e-06 0.0e+00 1.1e-11 2.6e-05 2.1e-05 2.7e-07 2.0e-05 1.3e-04 1.7e-08 8.2e-07 2.0e-06 5.3e-06 6.8e-09 7.9e-05 3.8e-05 1.2e-10
AM5                      1.0e-07 1.1e-11 0.0e+00 8.6e-05 5.9e-05 3.0e-06 1.4e-04 6.0e-04 2.8e-05 6.6e-09 1.6e-03 2.7e-03 8.4e-05 7.6e-03 5.3e-03 4.8e-10
VBM6                     6.5e-08 2.6e-05 8.6e-05 0.0e+00 0.0e+00 0.0e+00 0.0e+00 0.0e+00 6.7e-07 8.2e-07 1.5e-05 2.0e-05 7.6e-07 5.1e-04 3.3e-04 1.5e-08
PDM6                     3.9e-08 2.1e-05 5.9e-05 0.0e+00 0.0e+00 0.0e+00 0.0e+00 0.0e+00 6.7e-07 4.4e-07 9.6e-06 1.3e-05 4.5e-07 4.1e-04 2.6e-04 2.8e-08
RLM6                     1.6e-09 2.7e-07 3.0e-06 0.0e+00 0.0e+00 0.0e+00 0.0e+00 0.0e+00 3.5e-09 1.1e-08 7.6e-07 1.1e-06 1.6e-08 7.5e-05 4.2e-05 3.9e-11
CM6                      2.5e-07 2.0e-05 1.4e-04 0.0e+00 0.0e+00 0.0e+00 0.0e+00 0.0e+00 3.3e-07 2.7e-06 3.5e-05 4.9e-05 2.3e-06 8.0e-04 5.3e-04 1.7e-09
TM6                      1.4e-06 1.3e-04 6.0e-04 0.0e+00 0.0e+00 0.0e+00 0.0e+00 0.0e+00 2.9e-06 1.8e-05 1.3e-04 1.8e-04 1.3e-05 1.9e-03 1.3e-03 1.8e-08
AM11                     2.6e-06 1.7e-08 2.8e-05 6.7e-07 6.7e-07 3.5e-09 3.3e-07 2.9e-06 0.0e+00 2.4e-13 1.8e-05 3.4e-05 2.6e-07 4.4e-04 2.5e-04 4.6e-06
AM12                     2.1e-04 8.2e-07 6.6e-09 8.2e-07 4.4e-07 1.1e-08 2.7e-06 1.8e-05 2.4e-13 0.0e+00 3.3e-07 5.4e-07 1.1e-08 1.7e-05 9.8e-06 1.6e-06
VBM10                    2.8e-03 2.0e-06 1.6e-03 1.5e-05 9.6e-06 7.6e-07 3.5e-05 1.3e-04 1.8e-05 3.3e-07 0.0e+00 0.0e+00 0.0e+00 0.0e+00 0.0e+00 2.2e-08
PDM10                    4.6e-03 5.3e-06 2.7e-03 2.0e-05 1.3e-05 1.1e-06 4.9e-05 1.8e-04 3.4e-05 5.4e-07 0.0e+00 0.0e+00 0.0e+00 0.0e+00 0.0e+00 4.7e-08
                             AM8     AM4      CM1      TM1     RLM1     VBM1     PDM1    BECA           CM3     TM3          PDM3    VBM3    RLM3     CM2
AM9                      3.2e-02 9.8e-06  1.8e-07  1.7e-07  2.6e-08  1.7e-08  1.4e-08 3.9e-02  2.000000e-01 2.3e-01  3.800000e-01 9.8e-02 1.9e-01 1.2e-01
AM3                      1.3e-11 2.2e-09  4.1e-06  3.2e-06  1.3e-07  4.7e-08  4.1e-08 3.8e-01  7.300000e-01 7.5e-01  2.100000e-02 1.0e-01 2.5e-01 6.6e-03
AM5                      1.7e-05 3.2e-04  3.5e-07  2.2e-07  1.1e-08  3.3e-09  4.1e-09 7.1e-01  1.500000e-02 1.9e-02  9.900000e-03 1.0e-03 5.0e-03 2.1e-02
VBM6                     4.8e-05 3.4e-05  2.1e-10  1.7e-10  2.9e-10  3.4e-10  5.3e-10 8.0e-01  6.200000e-03 8.0e-03  1.500000e-03 1.1e-04 9.3e-04 1.8e-03
PDM6                     3.2e-05 3.8e-05  1.2e-10  9.7e-11  1.3e-10  1.4e-10  2.1e-10 8.6e-01  7.200000e-03 9.3e-03  1.400000e-03 1.1e-04 9.8e-04 1.1e-03
RLM6                     6.7e-06 3.3e-07  1.0e-12  6.9e-13  7.5e-13  6.9e-13  1.3e-12 6.4e-01  1.100000e-03 1.6e-03  4.000000e-04 1.1e-05 1.5e-04 2.5e-04
CM6                      1.4e-04 1.1e-05  9.0e-10  6.8e-10  1.8e-09  2.2e-09  3.8e-09 6.2e-01  3.200000e-03 4.1e-03  1.600000e-03 1.1e-04 7.1e-04 4.4e-03
TM6                      3.5e-04 7.0e-05  9.9e-09  8.0e-09  2.6e-08  3.5e-08  5.7e-08 6.7e-01  6.300000e-03 7.9e-03  2.800000e-03 2.8e-04 1.5e-03 1.1e-02
AM11                     2.3e-07 4.3e-06  1.0e-07  6.7e-08  4.3e-09  1.4e-09  1.8e-09 3.7e-01  3.800000e-04 6.0e-04  8.400000e-04 9.3e-06 1.2e-04 2.6e-05
AM12                     1.2e-05 6.3e-05  1.1e-06  8.8e-07  3.3e-08  1.2e-08  1.0e-08 6.8e-01  7.900000e-04 1.2e-03  6.700000e-04 1.0e-05 1.5e-04 3.8e-05
VBM10                    3.2e-06 6.0e-04  1.5e-07  1.2e-07  3.2e-08  2.1e-08  2.4e-08 7.1e-01  2.800000e-01 3.2e-01  2.500000e-01 7.1e-02 1.8e-01 2.3e-02
PDM10                    8.8e-06 1.0e-03  9.3e-08  7.4e-08  2.5e-08  1.8e-08  2.1e-08 7.0e-01  2.800000e-01 3.2e-01  2.100000e-01 6.2e-02 1.6e-01 2.5e-02
                             TM2    PDM2    VBM2    RLM2     CM12     TM12    PDM12   VBM12   RLM12    PSEM1 promedio.preparatoria admision.letras
AM9                      1.4e-01 1.2e-01 2.1e-02 6.9e-02  3.6e-04  2.3e-04  2.9e-03 1.9e-05 1.4e-04  1.3e-15                 0.790          0.9100
AM3                      8.1e-03 1.2e-02 2.9e-04 2.6e-03  5.9e-02  4.0e-02  3.1e-01 8.7e-03 4.3e-02  7.4e-18                 0.330          0.2900
AM5                      2.5e-02 8.5e-02 6.7e-03 2.1e-02  6.7e-04  4.4e-04  4.8e-03 5.2e-05 3.0e-04  6.5e-18                 0.300          0.2700
VBM6                     2.1e-03 4.0e-04 3.6e-05 2.6e-04  2.3e-02  1.7e-02  7.8e-02 3.2e-03 1.3e-02  5.5e-15                 0.460          0.5600
PDM6                     1.3e-03 2.3e-04 1.8e-05 1.4e-04  1.5e-02  1.1e-02  6.2e-02 2.1e-03 8.7e-03  1.3e-15                 0.410          0.5100
RLM6                     3.0e-04 6.7e-05 2.2e-06 2.7e-05  9.3e-03  6.2e-03  4.5e-02 7.2e-04 4.5e-03  1.8e-20                 0.630          0.7500
CM6                      4.9e-03 1.4e-03 1.6e-04 8.7e-04  5.9e-02  4.5e-02  1.3e-01 8.0e-03 3.1e-02  4.7e-14                 0.700          0.8000
TM6                      1.2e-02 3.3e-03 5.7e-04 2.5e-03  9.3e-02  7.4e-02  1.8e-01 1.6e-02 5.3e-02  9.5e-12                 0.640          0.7300
AM11                     3.5e-05 3.8e-05 1.4e-07 3.8e-06  1.5e-02  1.0e-02  1.2e-01 3.2e-03 1.2e-02  1.2e-19                 0.440          0.3600
AM12                     4.9e-05 3.5e-04 3.2e-06 2.4e-05  8.1e-03  8.2e-03  1.3e-01 4.1e-01 6.8e-01  3.2e-19                 0.830          0.9900
VBM10                    2.6e-02 8.6e-02 1.4e-02 2.7e-02  3.3e-01  3.0e-01  4.2e-01 1.3e-01 2.4e-01  9.4e-14                 0.330          0.2600
PDM10                    2.8e-02 1.1e-01 1.9e-02 3.4e-02  3.8e-01  3.4e-01  4.8e-01 1.6e-01 2.8e-01  2.1e-13                 0.340          0.2800
                         admision.numeros edad.ingreso nota.conducta   genero evalucion.socioeconomica     CM7     TM7    RLM7    VBM7    PDM7     CM4
AM9                                0.9100       0.9600        0.9000  7.3e-01                  1.4e-01 4.5e-04 2.8e-03 2.8e-06 1.2e-04 3.1e-06 2.2e-01
AM3                                0.2900       0.3900        0.4000  1.5e-01                  2.8e-01 1.7e-04 1.6e-03 5.8e-07 6.6e-05 1.1e-06 2.9e-03
AM5                                0.2700       0.3100        0.3400  6.0e-01                  9.9e-01 6.2e-04 2.6e-03 2.8e-05 4.6e-04 5.2e-05 4.3e-04
VBM6                               0.5600       0.4400        0.4900  8.3e-01                  8.6e-01 2.9e-01 5.5e-01 7.9e-02 3.3e-01 1.2e-01 2.3e-03
PDM6                               0.5100       0.4000        0.4300  8.2e-01                  8.7e-01 2.1e-01 4.4e-01 4.7e-02 2.4e-01 7.8e-02 2.2e-03
RLM6                               0.7500       0.6100        0.6700  6.3e-01                  7.0e-01 1.2e-01 3.1e-01 2.1e-02 1.5e-01 3.9e-02 5.5e-04
CM6                                0.8000       0.6700        0.7700  7.8e-01                  7.7e-01 4.7e-01 7.5e-01 1.9e-01 5.2e-01 2.6e-01 2.6e-03
TM6                                0.7300       0.6100        0.7100  8.8e-01                  8.3e-01 6.6e-01 9.4e-01 3.2e-01 7.2e-01 4.2e-01 5.0e-03
AM11                               0.3600       0.3900        0.3700  4.5e-01                  6.9e-01 8.5e-06 9.9e-05 5.6e-08 6.7e-06 1.9e-07 1.1e-02
AM12                               0.9900       0.8200        0.7700  2.6e-01                  6.6e-01 3.9e-04 2.1e-03 5.7e-06 1.6e-04 8.2e-06 8.4e-05
VBM10                              0.2600       0.3400        0.3300  4.8e-02                  7.2e-01 8.7e-02 1.8e-01 1.6e-02 7.1e-02 2.1e-02 1.7e-02
PDM10                              0.2800       0.3500        0.3500  5.5e-02                  7.5e-01 1.1e-01 2.2e-01 2.3e-02 9.5e-02 2.9e-02 2.5e-02
                             TM4    RLM4    VBM4    PDM4     CM8     TM8    PDM8    VBM8    RLM8     AM6    AM10     CM9     TM9    PDM9    VBM9    RLM9
AM9                      2.2e-01 9.7e-03 6.3e-02 6.1e-02 9.6e-04 3.9e-04 1.0e-04 5.4e-05 2.2e-04 1.4e-03 1.2e-08 4.5e-01 4.4e-01 2.0e-05 1.2e-04 2.9e-03
AM3                      3.0e-03 9.9e-06 1.7e-04 1.5e-04 1.6e-02 6.8e-03 1.0e-03 6.4e-04 3.0e-03 9.3e-08 2.6e-07 1.4e-03 1.1e-03 1.3e-03 3.6e-05 1.8e-04
AM5                      4.4e-04 3.1e-07 3.3e-06 1.6e-06 1.8e-05 4.8e-06 9.1e-07 3.2e-07 2.5e-06 5.2e-07 1.1e-05 1.3e-01 1.1e-01 4.9e-02 1.2e-02 3.2e-02
VBM6                     2.4e-03 1.6e-04 1.6e-03 2.6e-03 3.2e-05 7.8e-06 4.2e-05 8.0e-06 3.8e-05 6.6e-02 1.1e-05 6.8e-02 6.0e-02 5.4e-02 8.4e-03 2.2e-02
PDM6                     2.2e-03 1.2e-04 1.3e-03 2.1e-03 1.4e-05 3.3e-06 1.6e-05 2.8e-06 1.5e-05 9.8e-03 1.2e-05 7.7e-02 6.8e-02 6.3e-02 9.7e-03 2.5e-02
RLM6                     5.7e-04 1.1e-05 2.2e-04 3.7e-04 7.3e-06 1.2e-06 4.2e-06 6.2e-07 5.2e-06 3.4e-01 4.0e-07 1.0e-02 8.3e-03 5.8e-03 3.5e-04 1.5e-03
CM6                      2.7e-03 2.1e-04 2.2e-03 3.7e-03 3.1e-04 8.5e-05 4.2e-04 9.7e-05 4.0e-04 6.0e-01 8.2e-06 2.8e-02 2.4e-02 1.9e-02 2.5e-03 7.2e-03
TM6                      5.1e-03 6.7e-04 5.3e-03 8.8e-03 7.3e-04 2.4e-04 1.4e-03 3.5e-04 1.1e-03 6.7e-01 3.3e-05 6.0e-02 5.3e-02 4.6e-02 8.7e-03 2.0e-02
AM11                     1.1e-02 8.0e-06 3.4e-04 2.6e-04 1.7e-02 6.8e-03 2.1e-03 1.1e-03 5.0e-03 1.6e-06 8.0e-05 1.2e-03 9.6e-04 2.0e-03 9.0e-05 2.9e-04
AM12                     8.8e-05 3.3e-08 9.7e-07 6.9e-07 5.5e-03 1.9e-03 6.3e-04 2.9e-04 1.5e-03 6.7e-03 9.7e-08 1.2e-01 1.0e-01 3.6e-02 5.4e-03 2.0e-02
VBM10                    1.7e-02 7.9e-05 2.5e-04 9.9e-05 9.9e-01 7.9e-01 2.8e-01 2.7e-01 5.1e-01 1.8e-05 3.7e-02 3.2e-02 2.8e-02 1.7e-03 2.5e-04 1.7e-03
PDM10                    2.5e-02 1.4e-04 4.3e-04 1.7e-04 9.0e-01 8.8e-01 3.2e-01 3.1e-01 5.8e-01 4.3e-05 7.7e-03 5.2e-02 4.6e-02 2.8e-03 4.8e-04 3.1e-03
                             CM5     TM5    PDM5    VBM5    RLM5    CM11    TM11   RLM11   VBM11   PDM11      AM2    PSEM2
AM9                      1.8e-01 1.4e-01 5.3e-01 1.1e-01 2.2e-01 9.8e-02 8.3e-02 1.6e-02 4.2e-03 2.0e-02  1.3e-03  2.4e-01
AM3                      3.1e-02 2.1e-02 8.1e-02 5.3e-03 2.3e-02 1.4e-02 1.1e-02 5.5e-04 5.4e-05 6.2e-04  1.0e-08  1.3e-02
AM5                      5.2e-01 5.0e-01 1.2e-04 3.9e-03 5.2e-02 1.4e-01 1.1e-01 2.1e-02 4.2e-03 3.0e-02  1.3e-08  3.0e-02
VBM6                     9.0e-04 5.7e-04 4.9e-03 1.6e-04 7.4e-04 2.3e-01 2.0e-01 5.1e-02 1.8e-02 4.6e-02  1.3e-06  2.5e-02
PDM6                     5.3e-04 3.3e-04 2.9e-03 7.4e-05 4.0e-04 2.3e-01 2.1e-01 4.9e-02 1.6e-02 4.2e-02  5.8e-07  2.5e-02
RLM6                     3.2e-04 1.8e-04 2.0e-03 3.2e-05 2.3e-04 8.2e-02 6.9e-02 1.1e-02 2.5e-03 1.1e-02  2.2e-08  6.6e-03
CM6                      3.7e-03 2.5e-03 1.8e-02 1.1e-03 3.7e-03 1.5e-01 1.4e-01 3.9e-02 1.5e-02 4.2e-02  6.5e-06  1.9e-02
TM6                      6.7e-03 4.7e-03 3.0e-02 2.5e-03 7.1e-03 2.3e-01 2.1e-01 7.4e-02 3.3e-02 7.4e-02  4.1e-05  3.2e-02
AM11                     3.5e-03 2.2e-03 3.0e-03 7.2e-05 8.6e-04 6.3e-02 6.2e-02 9.6e-01 5.6e-01 2.2e-01  2.8e-08  1.6e-02
AM12                     8.6e-03 6.1e-03 5.1e-03 3.8e-04 2.4e-03 5.5e-02 4.2e-02 5.2e-03 7.6e-04 8.1e-03  7.9e-05  1.7e-02
VBM10                    4.2e-02 3.2e-02 1.9e-01 2.8e-02 5.8e-02 5.3e-01 4.8e-01 4.1e-01 2.8e-01 6.3e-01  6.6e-05  4.5e-02
PDM10                    3.9e-02 2.9e-02 1.8e-01 2.8e-02 5.6e-02 5.6e-01 5.1e-01 4.6e-01 3.1e-01 7.0e-01  8.2e-05  5.4e-02
 [ reached getOption("max.print") -- omitted 69 rows ]

$sym
                         AM9 AM3 AM5 VBM6 PDM6 RLM6 CM6 TM6 AM11 AM12 VBM10 PDM10 RLM10 CM10 TM10 AM7 AM8 AM4 CM1 TM1 RLM1 VBM1 PDM1 BECA CM3 TM3 PDM3 VBM3
AM9                      1                                                                                                                                 
AM3                          1                                                                                                                             
AM5                              1                                                                                                                         
VBM6                                 1                                                                                                                     
PDM6                                 1    1                                                                                                                
RLM6                                 B    B    1                                                                                                           
CM6                                  B    *    B    1                                                                                                      
TM6                                  B    *    B    1   1                                                                                                  
AM11                                                        1                                                                                              
AM12                                                             1                                                                                         
VBM10                                                                 1                                                                                    
PDM10                                                                 B     1                                                                              
                         RLM3 CM2 TM2 PDM2 VBM2 RLM2 CM12 TM12 PDM12 VBM12 RLM12 PSEM1 promedio.preparatoria admision.letras admision.numeros edad.ingreso
AM9                                                                                                                                                       
AM3                                                                                                                                                       
AM5                                                                                                                                                       
VBM6                                                                                                                                                      
PDM6                                                                                                                                                      
RLM6                                                                                                                                                      
CM6                                                                                                                                                       
TM6                                                                                                                                                       
AM11                                                                                                                                                      
AM12                                                                                                                                                      
VBM10                                                                                                                                                     
PDM10                                                                                                                                                     
                         nota.conducta genero evalucion.socioeconomica CM7 TM7 RLM7 VBM7 PDM7 CM4 TM4 RLM4 VBM4 PDM4 CM8 TM8 PDM8 VBM8 RLM8 AM6 AM10 CM9 TM9
AM9                                                                                                                                                         
AM3                                                                                                                                                         
AM5                                                                                                                                                         
VBM6                                                                                                                                                        
PDM6                                                                                                                                                        
RLM6                                                                                                                                                        
CM6                                                                                                                                                         
TM6                                                                                                                                                         
AM11                                                                                                                                                        
AM12                                                                                                                                                        
VBM10                                                                                                                                                       
PDM10                                                                                                                                                       
                         PDM9 VBM9 RLM9 CM5 TM5 PDM5 VBM5 RLM5 CM11 TM11 RLM11 VBM11 PDM11 AM2 PSEM2
AM9                                                                                                 
AM3                                                                                                 
AM5                                                                                                 
VBM6                                                                                                
PDM6                                                                                                
RLM6                                                                                                
CM6                                                                                                 
TM6                                                                                                 
AM11                                                                                                
AM12                                                                                                
VBM10                                                                                               
PDM10                                                                                               
 [ reached getOption("max.print") -- omitted 69 rows ]
attr(,"legend")
[1] 0 ‘ ’ 0.3 ‘.’ 0.6 ‘,’ 0.8 ‘+’ 0.9 ‘*’ 0.95 ‘B’ 1
dev.off()
quartz_off_screen 
                2 

cormat<-rquery.cormat(dataframe.to.cor, type="full", col=col)

NA
NA
plot.relaciones <- function(x="", y=""){
  alumnos.training$cluster <- clustering.kmeans$cluster
#plot(alumnos.training)
plot(alumnos.training[,c(x, y) ], 
     col = clustering.kmeans$cluster)
}
plot.relaciones("BECA", "evalucion.socioeconomica")

plot.relaciones("PDM1", "PSEM1")

plot.relaciones("VBM1", "PSEM1")

plot(alumnos.training[,c("VBM1", "PSEM1") ], 
     col = 1:3)

LS0tCnRpdGxlOiAiUiBQcm95ZWN0byBGaW5hbCIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQpgYGB7cn0KI01vZGlmaWNhciB2YXJpYWJsZSBwYXJhIGVzcGVjaWZpY2FyIGRpcmVjdG9yaW8gZGVsIFByb3llY3RvIEZpbmFsCiNsb2NhbC5wYXRoIDwtICIvVXNlcnMvYWtjYXNpbGwvRG93bmxvYWRzIgoKdXNlci5wYXRoIDwtICIvVXNlcnMvam9zL0Rvd25sb2Fkcy8iCgpsb2NhbC5wYXRoIDwtIHBhc3RlKHVzZXIucGF0aCAsIm1jYy1hZC9kYXRhIixzZXAgPSAiIikKbG9jYWwucGF0aC5pbWdzIDwtIHBhc3RlKHVzZXIucGF0aCAsIm1jYy1hZC9pbWdzIixzZXAgPSAiIikKYGBgCgoKYGBge3J9CiNEZXBlbmRlbmNpZXMKI2luc3RhbGwucGFja2FnZXMoInBuZyIpCmxpYnJhcnkocG5nKQpgYGAKCiNBU0lTVEVOQ0lBUyBUT1RBTEVTCmBgYHtyfQpzZXR3ZChsb2NhbC5wYXRoKQojIHNvbiA5IHNlbWVzdHJlcyBkZSA2IG1hdGVyaWFzIGNhZGEgdW5vLiAKIyAxLi0gQXNpc3RlbmNpYXMgVG90YWxlcwpsb2FkKCJBc2lzdGVuY2lhc1RvdGFsZXMuUiIpCmNsYXNzKGFzaXN0ZW5jaWFzLnRvdGFsZXMpCmxlbmd0aChhc2lzdGVuY2lhcy50b3RhbGVzKQpjbGFzcyhhc2lzdGVuY2lhcy50b3RhbGVzW1sxXV0pCmRpbShhc2lzdGVuY2lhcy50b3RhbGVzW1sxXV0pCmNsYXNzKGFzaXN0ZW5jaWFzLnRvdGFsZXNbMV0pCgphc2lzdGVuY2lhcy50b3RhbGVzW1sxXV1bMToxMCwxOjEwXQpgYGAKYGBge3J9CiNBc2lzdGVuY2lhcwojPT09PT09PT09PT09PT09PT09PQojRGVmaW5pY2nDs24gVmFsb3JlcwojPT09PT09PT09PT09PT09PT09PQojIDIgRWwgYWx1bW5vIHRpZW5lIGFzaXN0bmVjaWEgY29tcGxldGEuCiMgMSBFbCBhbHVtbm8gdGllbmUgcmV0YXJkby4KIyAwIEVsIGFsdW1ubyB0aWVuZSBmYWx0YS4KCiNTw7NsbyB0b21hciBsYXMgcHJpbWVyYXMgMTIgbWF0ZXJpYXMgKENvbHVtbmFzKQpmb3IoaSBpbiAxOmxlbmd0aChhc2lzdGVuY2lhcy50b3RhbGVzKSl7CiAgYXNpc3RlbmNpYXMudG90YWxlc1tbaV1dIDwtIGFzaXN0ZW5jaWFzLnRvdGFsZXNbW2ldXVssMToxMl0KfQphc2lzdGVuY2lhcy50b3RhbGVzW1s0XV0KYGBgClRhbWHDsW8gZGUgTGlzdGEgZGUgQXNpc3RlbmNpYSBkZSBBbHVtbm9zOgpgYGB7cn0KbGVuZ3RoKGFzaXN0ZW5jaWFzLnRvdGFsZXMpCmBgYApMaXN0YSBkZSB0b3RhbCBBc2lzdGVuY2lhcyBwb3IgQWx1bW5vCmBgYHtyfQojCiNmb3IoaSBpbiAxOmxlbmd0aChhc2lzdGVuY2lhcy50b3RhbGVzKSl7CiMgIGFzaXN0ZW5jaWFzLnRvdGFsZXNbW2ldXSA8LSBhc2lzdGVuY2lhcy50b3RhbGVzW1tpXV1bLDE6MTJdCiN9CmFzaXN0ZW5jaWFzLmFsdW1ub3MgPC0gbWF0cml4KDE6MTIwMDAsIG5yb3c9MTAwMCwgbmNvbD0xMikKCmZvcihpIGluIDE6bGVuZ3RoKGFzaXN0ZW5jaWFzLnRvdGFsZXMpKXsKICBmb3IoaiBpbiAxOjEyKXsKICAgIGFzaXN0ZW5jaWFzLmFsdW1ub3NbaSxqXSA8LSBzdW0oYXNpc3RlbmNpYXMudG90YWxlc1tbaV1dWyxqXSkvMzIgICAgCiAgfQp9Cgphc2lzdGVuY2lhcy5hbHVtbm9zWzEsXQphc2lzdGVuY2lhcy5kZiA8LSBhcy5kYXRhLmZyYW1lKGFzaXN0ZW5jaWFzLmFsdW1ub3MpCgojQXNpc3RlbmNpYSBNYXRlcmlhcyBFamVtcGxvOiBBTTEgPSBBc2lzdGVuY2lhIE1hdGVyaWEgMQpjb2xuYW1lcyhhc2lzdGVuY2lhcy5kZikgPC0gYygnQU0xJywnQU0yJywnQU0zJywnQU00JywnQU01JywnQU02JywnQU03JywnQU04JywnQU05JywnQU0xMCcsJ0FNMTEnLCdBTTEyJykKI0RBVEEgRlJBTUUgREUgQVNJU1RFTkNJQVMgQUxVTU5PUwojPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09CiNTdW1hIGRlIGFzaXN0ZW5jaWFzIHBvciBNYXRlcmlhCiM9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0KYXNpc3RlbmNpYXMuZGYKYGBgCiNQRVJGSUwgQUxVTU5PUwpgYGB7cn0Kc2V0d2QobG9jYWwucGF0aCkKcHJpbnQoIlN1bW1hcnkiKQpsb2FkKCJwZXJmaWxBbHVtbm9zLlIiKQojaGVhZChwZXJmaWwuYWx1bW5vcywxKQpzdHIocGVyZmlsLmFsdW1ub3MpCnN1bW1hcnkocGVyZmlsLmFsdW1ub3MpCgojPT09PT09PT09PT09PT09PT09PQojRGVmaW5pY2nDs24gVmFsb3JlcwojPT09PT09PT09PT09PT09PT09PQojIEdlbmVybzogMiBIb21icmUsIDEgTXVqZXIuCiMgYWRtaXNpb24ubGV0cmFzOiBDYWxpZmljYWNpw7NuIEV4YW1lbiBBZG1pc2nDs24gRXNwYcOxb2wKIyBhZG1pc2lvbi5udW1lcm9zOiBDYWxpZmljYWNpw7NuIEV4YW1lbiBBZG1pc2nDs24gTWF0ZW3DoXRpY2FzCiMgcHJvbWVkaW8ucHJlcGFyYXRvcmlhOiBDYWxpZmljYWNpw7NuIFByb21lZGlvIFByZXBhcmF0b3JpYSAgIAojIGVkYWQuaW5ncmVzbzogRWRhZCwgdmFyaWFibGUgbnVtw6lyaWNhICAgICAgICAgICAgIAojIGV2YWx1Y2lvbi5zb2Npb2Vjb25vbWljYTogMSBtw6FzIHByaXZpbGVnaWFkbywgNCBtZW5vcyBwcml2aWxhZ2lhZG8KIyBub3RhLmNvbmR1Y3RhOiBDYWxpZmljYWNpw7NuIHN1YmpldGl2YS4gCgpgYGAKCmBgYHtyfQpwZXJmaWwuYWx1bW5vcyRnZW5lcm8gPC0gZmFjdG9yKHBlcmZpbC5hbHVtbm9zJGdlbmVybykKcGVyZmlsLmFsdW1ub3MkZXZhbHVjaW9uLnNvY2lvZWNvbm9taWNhIDwtCiAgZmFjdG9yKHBlcmZpbC5hbHVtbm9zJGV2YWx1Y2lvbi5zb2Npb2Vjb25vbWljYSkKCnBlcmZpbC5hbHVtbm9zJGVkYWQuaW5ncmVzbyA8LSAKICBmYWN0b3IocGVyZmlsLmFsdW1ub3MkZWRhZC5pbmdyZXNvKQpgYGAKCgojREFUQUZSQU1FIENBTElGSUNBQ0lPTkVTIEFMVU1OT1MKYGBge3J9CnNldHdkKGxvY2FsLnBhdGgpCnByaW50KCJTdW1tYXJ5IikKIyAzIDEwMDAgbWF0cmljZXMgZGUgMiB4IDU0LCBjYWxpZmljYWNpw7NuIGVudHJlIDEgeSAyMApsb2FkKCJSZXN1bHRhZG9zRXhhbWVuZXMuUiIpCiNyZXN1bHRhZG9zLmV4YW1lbmVzLnRvdGFsZXMKCmV4YW1lbmVzLmFsdW1ub3MgPC0gbWF0cml4KDE6MTIwMDAsIG5yb3c9MTAwMCwgbmNvbD0xMikKCmZvcihpIGluIDE6bGVuZ3RoKHJlc3VsdGFkb3MuZXhhbWVuZXMudG90YWxlcykpewogIGZvcihqIGluIDE6MTIpewogICAgZXhhbWVuZXMuYWx1bW5vc1tpLGpdIDwtIHN1bShyZXN1bHRhZG9zLmV4YW1lbmVzLnRvdGFsZXNbW2ldXVssal0pLzIgICAgCiAgfQp9CgpleGFtZW5lcy5hbHVtbm9zWzEsXQpjYWwuYWx1bW5vcy5kZiA8LSBhcy5kYXRhLmZyYW1lKGV4YW1lbmVzLmFsdW1ub3MpCiNDYWxpZmljYWNpb25lcyBNYXRlcmlhcyBFamVtcGxvOiBDTTIgPSBDYWxpZmljaWFjacOzbiBQcm9tZWRpbyBNYXRlcmlhIDIKY29sbmFtZXMoY2FsLmFsdW1ub3MuZGYpIDwtIGMoJ0NNMScsJ0NNMicsJ0NNMycsJ0NNNCcsJ0NNNScsJ0NNNicsJ0NNNycsJ0NNOCcsJ0NNOScsJ0NNMTAnLCdDTTExJywnQ00xMicpCiM9PT09PT09PT09PT09PT09PT09CiNEZWZpbmljacOzbiBWYWxvcmVzCiM9PT09PT09PT09PT09PT09PT09CiMgQ00xOiBDYWxpZmljYWNpw7NuIE1hdGVyaWEgMSB2YWxvciBNw6F4aW1vIDIwCmNhbC5hbHVtbm9zLmRmCmBgYAoKI1RSQUJBSk9TIFBPUiBDTEFTRQpgYGB7cn0Kc2V0d2QobG9jYWwucGF0aCkKcHJpbnQoIlN1bW1hcnkiKQojIDQgMTAwMCBtYXRyaWNlcyBkZSA0IHggNTQsIHNvbiA0IHRyYWJham9zIHBvciBjbGFzZSwgZW50cmUgMSB5IDIwCmxvYWQoIlJlc3VsdGFkb1RyYWJham9zLlIiKQpyZXN1bHRhZG9zLnRyYWJham9zLnRvdGFsZXNbWzJdXVssMV0KCnRhcmVhcy5hbHVtbm9zIDwtIG1hdHJpeCgxOjEyMDAwLCBucm93PTEwMDAsIG5jb2w9MTIpCgpmb3IoaSBpbiAxOmxlbmd0aChyZXN1bHRhZG9zLnRyYWJham9zLnRvdGFsZXMpKXsKICBmb3IoaiBpbiAxOjEyKXsKICAgIHRhcmVhcy5hbHVtbm9zW2ksal0gPC0gc3VtKHJlc3VsdGFkb3MudHJhYmFqb3MudG90YWxlc1tbaV1dWyxqXSkvNCAgICAKICB9Cn0KCiN0YXJlYXMuYWx1bW5vc1sxLF0KdGFyZWFzLmFsdW1ub3MuZGYgPC0gYXMuZGF0YS5mcmFtZSh0YXJlYXMuYWx1bW5vcykKI1RhcmVhcyBNYXRlcmlhcyBFamVtcGxvOiBUTTIgPSBUYXJlYXMgUHJvbWVkaW8gTWF0ZXJpYSAyCmNvbG5hbWVzKHRhcmVhcy5hbHVtbm9zLmRmKSA8LSBjKCdUTTEnLCdUTTInLCdUTTMnLCdUTTQnLCdUTTUnLCdUTTYnLCdUTTcnLCdUTTgnLCdUTTknLCdUTTEwJywnVE0xMScsJ1RNMTInKQojPT09PT09PT09PT09PT09PT09PQojRGVmaW5pY2nDs24gVmFsb3JlcwojPT09PT09PT09PT09PT09PT09PQojIFRNMTogQ2FsaWZpY2FjacOzbiBUYXJlYSBNYXRlcmlhIDEgdmFsb3IgTcOheGltbyAyMAp0YXJlYXMuYWx1bW5vcy5kZgpgYGAKCiNWSVNJVEFTIEJJQkxJT1RFQ0EKYGBge3J9CiMgNSBSZWRvbmRlYXIuIFVzbyBmw61zaWNvIHkgdmlydHVhbC4gdmVjdG9yLiAxMDAwIE1hdHJpY2VzLCBuw7ptZXJvIGRlIHZlY2VzIHF1ZSBhc2lzdGlvIGEgbGEgYmlibGlvdGVjYSBwb3IgbWF0ZXJpYQpzZXR3ZChsb2NhbC5wYXRoKQpsb2FkKCJVc29CaWJsaW90ZWNhLlIiKQpsZW5ndGgodXNvLmJpYmxpb3RlY2EudG90YWxlcykKbWkudmFsIDwtIHVzby5iaWJsaW90ZWNhLnRvdGFsZXNbWzFdXVsxLDFdCm1pLnZhbAptaS52YWwgPC0gYXMuZGF0YS5mcmFtZShtaS52YWwpCm1pLnZhbAoKdmlzaXRhcy5iaWJsaW8uYWx1bW5vcyA8LSBtYXRyaXgoMToxMjAwMCwgbnJvdz0xMDAwLCBuY29sPTEyKQoKZm9yKGkgaW4gMToxMDAwKXsKICBmb3IoaiBpbiAxOjEyKXsKICAgIHZpc2l0YXMuYmlibGlvLmFsdW1ub3NbaSxqXSA8LSB1c28uYmlibGlvdGVjYS50b3RhbGVzW1tpXV1bMSxqXQogIH0KfQoKdmlzaXRhcy5iaWJsaW8uYWx1bW5vcy5kZiA8LSBhcy5kYXRhLmZyYW1lKHZpc2l0YXMuYmlibGlvLmFsdW1ub3MpCiNWaXNpdGFzIEJpYmxpb3RlY2EgIEVqZW1wbG86IFZCTTIgPSBWaXNpdGFzIEJpYmxpb3RlY2EgIE1hdGVyaWEgMgpjb2xuYW1lcyh2aXNpdGFzLmJpYmxpby5hbHVtbm9zLmRmKSA8LSBjKCdWQk0xJywnVkJNMicsJ1ZCTTMnLCdWQk00JywnVkJNNScsJ1ZCTTYnLCdWQk03JywnVkJNOCcsJ1ZCTTknLCdWQk0xMCcsJ1ZCTTExJywnVkJNMTInKQojPT09PT09PT09PT09PT09PT09PQojRGVmaW5pY2nDs24gVmFsb3JlcwojPT09PT09PT09PT09PT09PT09PQojIFZCTTE6IFZpc2l0YXMgQmlibGlvdGVjYSBNYXRlcmlhIDEKdmlzaXRhcy5iaWJsaW8uYWx1bW5vcy5kZgoKCmBgYAoKI1VTTyBERSBQTEFUQUZPUk1BUyBESUdJVEFMRVMKYGBge3J9CiMgNiBSZWRvbmRlYXIsIHZlY3Rvci4gVXNvIGRlIENhbnZhcyBvIGRlIFBsYXRhZm9ybWEgZGlnaXRhbC4Kc2V0d2QobG9jYWwucGF0aCkKbG9hZCgiVXNvUGxhdGFmb3JtYS5SIikKI3Vzby5wbGF0YWZvcm1hLnRvdGFsZXMKdXNvLnBsYXRhZm9ybWEudG90YWxlc1tbMV1dWywxOjEyXQpwbGF0YWZvcm1hcy5hbHVtbm9zIDwtIG1hdHJpeCgxOjEyMDAwLCBucm93PTEwMDAsIG5jb2w9MTIpCgpmb3IoaSBpbiAxOjEwMDApewogIGZvcihqIGluIDE6MTIpewogICAgcGxhdGFmb3JtYXMuYWx1bW5vc1tpLGpdIDwtIHVzby5wbGF0YWZvcm1hLnRvdGFsZXNbW2ldXVsxLGpdCiAgfQp9CgojdGFyZWFzLmFsdW1ub3NbMSxdCnBsYXRhZm9ybWFzLmFsdW1ub3MuZGYgPC0gYXMuZGF0YS5mcmFtZShwbGF0YWZvcm1hcy5hbHVtbm9zKQojVGFyZWFzIE1hdGVyaWFzIEVqZW1wbG86IFRNMiA9IFRhcmVhcyBQcm9tZWRpbyBNYXRlcmlhIDIKY29sbmFtZXMocGxhdGFmb3JtYXMuYWx1bW5vcy5kZikgPC0gYygnUERNMScsJ1BETTInLCdQRE0zJywnUERNNCcsJ1BETTUnLCdQRE02JywnUERNNycsJ1BETTgnLCdQRE05JywnUERNMTAnLCdQRE0xMScsJ1BETTEyJykKIz09PT09PT09PT09PT09PT09PT0KI0RlZmluaWNpw7NuIFZhbG9yZXMKIz09PT09PT09PT09PT09PT09PT0KIyBQRE0xOiBQbGF0YWZvcm1hcyBEaWdpdGFsZXMgTWF0ZXJpYSAxIHZhbG9yIE3DoXhpbW8gMjAKcGxhdGFmb3JtYXMuYWx1bW5vcy5kZgoKYGBgCgojQVBBUlRBRE8gREUgTElCUk9TIFBPUiBNQVRFUklBCmBgYHtyfQojIDcKc2V0d2QobG9jYWwucGF0aCkKbG9hZCgiQXBhcnRhZG9EZUxpYnJvcy5SIikgIzEwMDAgbWF0cmljZXMsIGNhbnRpZGFkIGRlIGxpYnJvcyBxdWUgZWwgYWx1bW5vIHJlc2VydsOzIHBvciBtYXRlcmlhLgpzZXBhcmFjaW9uLmxpYnJvcy50b3RhbGVzW1sxXV1bLDE6MTJdCgpyZXNlcnZhLmxpYnJvcy5hbHVtbm9zIDwtIG1hdHJpeCgxOjEyMDAwLCBucm93PTEwMDAsIG5jb2w9MTIpCgpmb3IoaSBpbiAxOjEwMDApewogIGZvcihqIGluIDE6MTIpewogICAgcmVzZXJ2YS5saWJyb3MuYWx1bW5vc1tpLGpdIDwtIHNlcGFyYWNpb24ubGlicm9zLnRvdGFsZXNbW2ldXVsxLGpdCiAgfQp9CgpyZXNlcnZhLmxpYnJvcy5hbHVtbm9zLmRmIDwtIGFzLmRhdGEuZnJhbWUocmVzZXJ2YS5saWJyb3MuYWx1bW5vcykKI1Jlc2VydmEgZGUgTGlicmlzIEVqZW1wbG86IFJMTTIgPSBSZXNlcnZhIGRlIExpYnJvcyBQb3IgTWF0ZXJpYSAyCmNvbG5hbWVzKHJlc2VydmEubGlicm9zLmFsdW1ub3MuZGYpIDwtIGMoJ1JMTTEnLCdSTE0yJywnUkxNMycsJ1JMTTQnLCdSTE01JywnUkxNNicsJ1JMTTcnLCdSTE04JywnUkxNOScsJ1JMTTEwJywnUkxNMTEnLCdSTE0xMicpCiM9PT09PT09PT09PT09PT09PT09CiNEZWZpbmljacOzbiBWYWxvcmVzCiM9PT09PT09PT09PT09PT09PT09CiMgUkxNMTogUmVzZXJ2YSBkZSBMaWJyb3MgcHJvIE1hdGVyaWEgMQpyZXNlcnZhLmxpYnJvcy5hbHVtbm9zLmRmCgpgYGAKCiNESVNUUklCVUNJw5NOIERFIEJFQ0FTIEFMVU1OT1MKYGBge3J9CiMgOCB2ZWN0b3IgYmluYXJpbywgMSB0aWVuZSBiZWNhLCAwIG5vIHRpZW5lIEJlY2EKc2V0d2QobG9jYWwucGF0aCkKbG9hZCgiQmVjYXMuUiIpCmRpc3RyaWJ1Y2lvbi5iZWNhc1tbMV1dCnN1bShkaXN0cmlidWNpb24uYmVjYXMpCgpiZWNhcy5hbHVtbm9zIDwtIG1hdHJpeCgxOjEwMDAsIG5yb3c9MTAwMCwgbmNvbD0xKQoKZm9yKGkgaW4gMToxMDAwKXsKICAgIGJlY2FzLmFsdW1ub3NbaV0gPC0gZGlzdHJpYnVjaW9uLmJlY2FzW2ldCn0KCmJlY2FzLmFsdW1ub3MuZGYgPC0gYXMuZGF0YS5mcmFtZShiZWNhcy5hbHVtbm9zKQpjb2xuYW1lcyhiZWNhcy5hbHVtbm9zLmRmKSA8LSBjKCdCRUNBJykKIz09PT09PT09PT09PT09PT09PT0KI0RlZmluaWNpw7NuIFZhbG9yZXMKIz09PT09PT09PT09PT09PT09PT0KIyBCRUNBOiBUaWVuZSBCZWNhIDEKYmVjYXMuYWx1bW5vcy5kZgojTmVjZXNpdGEgc2VyIHVuIGZhY3RvciBwb3IgcXVlIHNvbG8gdGllbmUgZG9zIHZhbG9yZXMgMCBvIDEgCmJlY2FzLmFsdW1ub3MuZGYkQkVDQSA8LSBhcy5mYWN0b3IoYmVjYXMuYWx1bW5vcy5kZiRCRUNBKQpiZWNhcy5hbHVtbm9zLmRmCmBgYAoKI0hJU1RPUklBTCBERSBQQUdPUyBBTFVNTk9TCmBgYHtyfQojIDkgIDIgZW4gdGllbXBvLCAxIHJldHJhc28sIDAsIFNvbiA5IHNlbWVzdHJlcyBwZXJvIGhheSBxdWUgdXNlciBzw7NsbyAyIHByaW1lcmFzIGNvbHVtbmFzLCA0IHBhZ29zLgpzZXR3ZChsb2NhbC5wYXRoKQpsb2FkKCJIaXN0b3JpYWxQYWdvcy5SIikKbGVuZ3RoKHJlZ2lzdHJvLnBhZ29zKQpyZWdpc3Ryby5wYWdvc1tbNTAwXV0KCgpwYWdvcy5hbHVtbm9zIDwtIG1hdHJpeCgxOjIwMDAsIG5yb3c9MTAwMCwgbmNvbD0yKQoKZm9yKGkgaW4gMToxMDAwKXsKICBmb3IoaiBpbiAxOjIpewogICAgcGFnb3MuYWx1bW5vc1tpLGpdIDwtIHN1bShyZWdpc3Ryby5wYWdvc1tbaV1dWyxqXSkvNCAgICAKICB9Cn0KCiN0YXJlYXMuYWx1bW5vc1sxLF0KcGFnb3MuYWx1bW5vcy5kZiA8LSBhcy5kYXRhLmZyYW1lKHBhZ29zLmFsdW1ub3MpCiNQYWdvIFNlbWVzdHJlOiBQU0VNMiA9IFBhZ28gU2VtZXN0cmUgMgpjb2xuYW1lcyhwYWdvcy5hbHVtbm9zLmRmKSA8LSBjKCdQU0VNMScsJ1BTRU0yJykKIz09PT09PT09PT09PT09PT09PT0KI0RlZmluaWNpw7NuIFZhbG9yZXMKIz09PT09PT09PT09PT09PT09PT0KIyBQU0VNMTogU3VtYSBkZSBwYWdvcyBzZW1lc3RyZSAxLCAyIHZhbG9yIG3DoXhpbW8uCnBhZ29zLmFsdW1ub3MuZGYKCmBgYAoKCgpgYGB7cn0KZGF0b3MuYWx1bW5vcy5kZiA8LSBjYmluZC5kYXRhLmZyYW1lKHBlcmZpbC5hbHVtbm9zLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYmVjYXMuYWx1bW5vcy5kZiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYXNpc3RlbmNpYXMuZGYsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNhbC5hbHVtbm9zLmRmLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0YXJlYXMuYWx1bW5vcy5kZiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdmlzaXRhcy5iaWJsaW8uYWx1bW5vcy5kZiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcGxhdGFmb3JtYXMuYWx1bW5vcy5kZiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmVzZXJ2YS5saWJyb3MuYWx1bW5vcy5kZiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcGFnb3MuYWx1bW5vcy5kZikKZGF0b3MuYWx1bW5vcy5kZgoKYGBgCgpgYGB7cn0Kc3RyKGRhdG9zLmFsdW1ub3MuZGYpCmBgYAoKYGBge3J9CnN1bW1hcnkoZGF0b3MuYWx1bW5vcy5kZikKZGF0b3MuaW50ZWdyYWRvcyA8LSBkYXRvcy5hbHVtbm9zLmRmCmBgYAoKYGBge3J9CnNldHdkKGxvY2FsLnBhdGgpCnNhdmUoZGF0b3MuaW50ZWdyYWRvcywgZmlsZT0iZGF0b3MuaW50ZWdyYWRvcy5SIikKZ2V0d2QoKQpsb2FkKCJkYXRvcy5pbnRlZ3JhZG9zLlIiKQpkYXRvcy5pbnRlZ3JhZG9zCmhlYWQoZGF0b3MuaW50ZWdyYWRvcykKCmBgYAoKI1NlcGFyYXIgMTAwIGFsdW1ub3MgcXVlIG5vIGVudHJhcmFuIGVuIEttZWFucwpgYGB7cn0Kc2V0LnNlZWQoMTIzNCkKCmluZCA8LSBzYW1wbGUoeD1jKDAsMSksc2l6ZT1ucm93KGRhdG9zLmludGVncmFkb3MpLAogICAgICAgICAgICAgIHJlcGxhY2U9VFJVRSxwcm9iID0gYygwLjksMC4xKSkKaW5kCgphbHVtbm9zLm51ZXZvcyA8LSBkYXRvcy5pbnRlZ3JhZG9zW2luZD09MSxdCmFsdW1ub3MuYWN0dWFsZXMgPC0gZGF0b3MuaW50ZWdyYWRvc1tpbmQ9PTAsXQoKYWx1bW5vcy5udWV2b3MKYWx1bW5vcy5hY3R1YWxlcwpgYGAKCgpgYGB7cn0Kc3VtbWFyeShhbHVtbm9zLm51ZXZvcykKYGBgCgpgYGB7cn0Kc3VtbWFyeShhbHVtbm9zLmFjdHVhbGVzKQpgYGAKCgpgYGB7cn0Kc2V0LnNlZWQoMTIzNCkKCmluZCA8LSBzYW1wbGUoeD1jKDAsMSksc2l6ZT1ucm93KGFsdW1ub3MuYWN0dWFsZXMpLAogICAgICAgICAgICAgIHJlcGxhY2U9VFJVRSxwcm9iID0gYygwLjcsMC4zKSkKaW5kCgphbHVtbm9zLnRyYWluaW5nIDwtIGFsdW1ub3MuYWN0dWFsZXNbaW5kPT0wLF0KYWx1bW5vcy50ZXN0IDwtIGFsdW1ub3MuYWN0dWFsZXNbaW5kPT0xLF0KCnN0cihhbHVtbm9zLnRyYWluaW5nKQpgYGAKCmBgYHtyfQpzZXQuc2VlZCgyMDIwKQp3c3MuYWx1bW5vcyA8LXZlY3RvcigpCndzcy5hbHVtbm9zCmNlbnRyb2lkZXMuYWx1bW5vcyA8LSAyNQpmb3IgKCBpIGluIDE6Y2VudHJvaWRlcy5hbHVtbm9zICkgd3NzLmFsdW1ub3NbaV0gPC0gc3VtKGttZWFucyhhbHVtbm9zLnRyYWluaW5nLGNlbnRlcnMgPSBpKSR3aXRoaW5zcykKCiNwbG90CnBsb3QoMTpjZW50cm9pZGVzLmFsdW1ub3MgICwgd3NzLmFsdW1ub3MgLCB0eXBlPSJiIiwgeGxhYj0iTnVtZXIgZGUgY2x1c3RlcnMiLCB5bGFiPSJFcnJvciBzdGFuZGFyZCIpCmBgYAoKCgojIyMgQW5hbMOtc2lzIGRlIGhvbWJybywgYnJhem8sIGNvZG8gcGFyYSBzZWxlY2Npb25hciBlbCBjZW50cm9pZGUKYGBge3J9CmltZ1BhdGguY29kbyA8LSBwYXN0ZShsb2NhbC5wYXRoLmltZ3MsIi9LbWVhbnMtY29kby1hbHVtbm9zLnBuZyIsc2VwID0gIiIpCgoKaW1nLmNvZG8uYWx1bW5vcyA8LSByZWFkUE5HKGltZ1BhdGguY29kbykKcGxvdC5uZXcoKQpyYXN0ZXJJbWFnZShpbWcuY29kby5hbHVtbm9zLDAsMCwxLDEpCmBgYAoKYGBge3J9CnNldC5zZWVkKDIwMjApCndzcy5hbHVtbm9zIDwtdmVjdG9yKCkKd3NzLmFsdW1ub3MKY2VudHJvaWRlcy5hbHVtbm9zIDwtIDEwCmZvciAoIGkgaW4gMTpjZW50cm9pZGVzLmFsdW1ub3MgKSB3c3MuYWx1bW5vc1tpXSA8LSBzdW0oa21lYW5zKGFsdW1ub3MudHJhaW5pbmcsY2VudGVycyA9IGkpJHdpdGhpbnNzKQoKI3Bsb3QKcGxvdCgxOmNlbnRyb2lkZXMuYWx1bW5vcyAgLCB3c3MuYWx1bW5vcyAsIHR5cGU9ImIiLCB4bGFiPSJOdW1lciBkZSBjbHVzdGVycyIsIHlsYWI9IkVycm9yIHN0YW5kYXJkIikKYGBgCgpgYGB7cn0KaW1nUGF0aC5jb2RvLnNlbGVjY2lvbmFkbyA8LSBwYXN0ZShsb2NhbC5wYXRoLmltZ3MsIi9LbWVhbnMtY29kby1hbHVtbm9zLXNlbGVjY2lvbmFkby5wbmciLHNlcCA9ICIiKQoKCmltZy5jb2RvLnNlbC5hbHVtbm9zIDwtIHJlYWRQTkcoaW1nUGF0aC5jb2RvLnNlbGVjY2lvbmFkbykKcGxvdC5uZXcoKQpyYXN0ZXJJbWFnZShpbWcuY29kby5zZWwuYWx1bW5vcywwLDAsMSwxKQoKYGBgCgoKYGBge3J9CgpjZW50cm9pZGVzLmFsdW1ub3MgPC0gNApjbHVzdGVyaW5nLmttZWFucyA8LSBrbWVhbnMoeD1hbHVtbm9zLnRyYWluaW5nLCBjZW50ZXJzID0gY2VudHJvaWRlcy5hbHVtbm9zKQpjbHVzdGVyaW5nLmttZWFucyR3aXRoaW5zcwpgYGAKCmBgYHtyfQphbHVtbm9zLnRyYWluaW5nJGdlbmVybyA8LSBhcy5udW1lcmljKGFsdW1ub3MudHJhaW5pbmckZ2VuZXJvKQphbHVtbm9zLnRyYWluaW5nJGVkYWQuaW5ncmVzbyA8LSBhcy5udW1lcmljKGFsdW1ub3MudHJhaW5pbmckZWRhZC5pbmdyZXNvKQphbHVtbm9zLnRyYWluaW5nJGV2YWx1Y2lvbi5zb2Npb2Vjb25vbWljYSA8LSBhcy5udW1lcmljKGFsdW1ub3MudHJhaW5pbmckZXZhbHVjaW9uLnNvY2lvZWNvbm9taWNhKQphbHVtbm9zLnRyYWluaW5nJEJFQ0EgPC0gYXMubnVtZXJpYyhhbHVtbm9zLnRyYWluaW5nJEJFQ0EpCnN1bShpcy5uYShhbHVtbm9zLnRyYWluaW5nKSkKI3N0cihhbHVtbm9zLnRyYWluaW5nKQpgYGAKCmBgYHtyfQpkYXRvcy5hbHVtbm9zLmRmJGdlbmVybyA8LSBhcy5udW1lcmljKGRhdG9zLmFsdW1ub3MuZGYkZ2VuZXJvKQpkYXRvcy5hbHVtbm9zLmRmJGVkYWQuaW5ncmVzbyA8LSBhcy5udW1lcmljKGRhdG9zLmFsdW1ub3MuZGYkZWRhZC5pbmdyZXNvKQpkYXRvcy5hbHVtbm9zLmRmJEJFQ0EgPC0gYXMubnVtZXJpYyhkYXRvcy5hbHVtbm9zLmRmJEJFQ0EpCmRhdG9zLmFsdW1ub3MuZGYkZXZhbHVjaW9uLnNvY2lvZWNvbm9taWNhIDwtIGFzLm51bWVyaWMoZGF0b3MuYWx1bW5vcy5kZiRldmFsdWNpb24uc29jaW9lY29ub21pY2EpCnN0cihkYXRvcy5hbHVtbm9zLmRmKQoKI2RzLnRlc3QgPC0gZGF0YS5mcmFtZSgpCiNkcy50ZXN0IDwtIGNiaW5kKGRhdG9zLmFsdW1ub3MuZGYkZ2VuZXJvLCBkYXRvcy5hbHVtbm9zLmRmJENNMSkKI3N0cihkcy50ZXN0KQpgYGAKCmBgYHtyfQpzdW0oZGF0b3MuYWx1bW5vcy5kZiRBTTExKQpjb2xuYW1lcyhkYXRvcy5hbHVtbm9zLmRmKQojQU0xIG91dApgYGAKCgoKYGBge3J9CiNkcyA8LSBkYXRvcy5hbHVtbm9zLmRmCiNkcy50ZXN0IDwtIGRhdGEuZnJhbWUoKQojZHMudGVzdCA8LSBjYmluZChkcyRnZW5lcm8sIGRzJGFkbWlzaW9uLmxldHJhcywgZHMkYWRtaXNpb24ubnVtZXJvcywgZHMkcHJvbWVkaW8ucHJlcGFyYXRvcmlhLCBkcyRlZGFkLmluZ3Jlc28sIGRzJGV2YWx1Y2lvbi5zb2Npb2Vjb25vbWljYSwgZHMkbm90YS5jb25kdWN0YSwgZHMkQkVDQSwgZHMkQU0xICkKZHMuZGF0YS5hbmFsaXNpcyA8LSBkYXRvcy5hbHVtbm9zLmRmCmRzLmRhdGEuYW5hbGlzaXMkQU0xIDwtIE5VTEwKCgpkYXRhZnJhbWUudG8uY29yIDwtIGRzLmRhdGEuYW5hbGlzaXMKCmxpYnJhcnkoY29ycnBsb3QpCnNvdXJjZSgiaHR0cDovL3d3dy5zdGhkYS5jb20vdXBsb2FkL3JxdWVyeV9jb3JtYXQuciIpCnJxdWVyeS5jb3JtYXQoZGF0YWZyYW1lLnRvLmNvcikKCmNvbDwtIGNvbG9yUmFtcFBhbGV0dGUoYygiYmx1ZSIsICJ3aGl0ZSIsICJyZWQiKSkoMjApCiMgY3JlYXRlIGRldmljZQo/anBlZwpqcGVnKCdjb3JyZWxhY2lvbi1hbHVtbm9zLWFkLmpwZycsIHdpZHRoPTE5MjAsIGhlaWdodD0xMDgwKQpycXVlcnkuY29ybWF0KGRhdGFmcmFtZS50by5jb3IsIHR5cGU9ImZ1bGwiLCBjb2w9Y29sKQpkZXYub2ZmKCkKY29ybWF0PC1ycXVlcnkuY29ybWF0KGRhdGFmcmFtZS50by5jb3IsIHR5cGU9ImZ1bGwiLCBjb2w9Y29sKQoKCmBgYAoKCmBgYHtyfQpwbG90LnJlbGFjaW9uZXMgPC0gZnVuY3Rpb24oeD0iIiwgeT0iIil7CiAgYWx1bW5vcy50cmFpbmluZyRjbHVzdGVyIDwtIGNsdXN0ZXJpbmcua21lYW5zJGNsdXN0ZXIKI3Bsb3QoYWx1bW5vcy50cmFpbmluZykKcGxvdChhbHVtbm9zLnRyYWluaW5nWyxjKHgsIHkpIF0sIAogICAgIGNvbCA9IGNsdXN0ZXJpbmcua21lYW5zJGNsdXN0ZXIpCn0KYGBgCgpgYGB7cn0KcGxvdC5yZWxhY2lvbmVzKCJCRUNBIiwgImV2YWx1Y2lvbi5zb2Npb2Vjb25vbWljYSIpCmBgYAoKYGBge3J9CnBsb3QucmVsYWNpb25lcygiUERNMSIsICJQU0VNMSIpCmBgYAoKYGBge3J9CnBsb3QucmVsYWNpb25lcygiVkJNMSIsICJQU0VNMSIpCmBgYAoKCmBgYHtyfQpwbG90KGFsdW1ub3MudHJhaW5pbmdbLGMoIlZCTTEiLCAiUFNFTTEiKSBdLCAKICAgICBjb2wgPSAxOjMpCmBgYAoKCgoKCgoKCgoKCgoKCgoKCgoK